델파이 Archives - 12 중 11 번째 페이지

JPEG 이미지 Resize 해서 저장하기.

http://www.swissdelphicenter.ch/torry/showcode.php?id=1896 여기 가면 받을수 있습니다. …Smoothly Resize a JPEG Image? Author: Andrew Jameson { Before importing an image (jpg) into a database, I would…

Delphi, C++ Builder IDE 보완용 GExpets

GExperts 의 주소는 아래와 같으며. Opensource 이므로 누구나 사용 가능합니다. www.gexperts.org 에서 내용을 확인하시고 다운 받으시면 됩니다. 사용법이나 설치 방법, 기타 강좌의 내용이 올라 왔습니다. www.delmadang.com 에서…

어떤 Grid를 사용한것인가? 내가 추천하는 Grid..

여기서는 DevExpress팩 이나 TMS팩등 Pack을 다루는 것이 아니라 그리드 자체만을 따질것이다. 모두 내가 사용해본 그리드이며, 한번이상 프로젝트에 사용해본 그리드들이다. 1. 퀀텀 그리드. 사용법은 물론 그…

ListView에서 선택된 Item으로 Scroll 하기.

오늘 후배가 물어봤다. 리스트뷰에서 Items중 하나를 선택 했는데, 도대체 스크롤이 안됩니다. 어찌해야 하나여? 흠… 잘.. 이라고 말해줬다.

procedure TForm2.Button2Click(Sender: TObject);
var
  vPoint: TPoint;
begin
  ListView1.ItemIndex     := StrToInt(Edit1.text);

  vPoint := ListView1.Items[StrToInt(Edit1.text)].GetPosition;
  ListView1.Scroll(vPoint.X, vPoint.Y - ListView1.Height div 2);
  ListView1.SetFocus;

end;

procedure TForm2.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  If ListView1.GetItemAt(X, Y) <> nil then
    caption := ListView1.GetItemAt(X, Y).caption;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

procedure TForm2.Button2Click(Sender: TObject);

var

vPoint: TPoint;

begin

ListView1.ItemIndex := StrToInt(Edit1.text);

vPoint := ListView1.Items[StrToInt(Edit1.text)].GetPosition;

ListView1.Scroll(vPoint.X, vPoint.Y - ListView1.Height div 2);

ListView1.SetFocus;

end;

procedure TForm2.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

If ListView1.GetItemAt(X, Y) <> nil then

caption := ListView1.GetItemAt(X, Y).caption;

end;

화일 사이즈 알아내기…. 2가지…

화일 사이즈 알아내기…. 2가지 입니다. 2가지중 두번째가 속도가 조금 빠릅니다.

Function Get_FileSize(FileName: String): DWord;
var
  FH: THandle;
  FI: TByHandleFileInformation;
begin
  Result := 0;
  FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone);
  try
    if FH <> INVALID_HANDLE_VALUE then
    begin
      if not GetFileInformationByHandle(FH, FI) then
        Exit;
      Result := FI.nFileSizeLow;
    end;
  finally
    CloseHandle(FH);
  end;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

Function Get_FileSize(FileName: String): DWord;

var

FH: THandle;

FI: TByHandleFileInformation;

begin

Result := 0;

FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone);

try

if FH <> INVALID_HANDLE_VALUE then

begin

if not GetFileInformationByHandle(FH, FI) then

Exit;

Result := FI.nFileSizeLow;

end;

finally

CloseHandle(FH);

end;

두번째 꺼… 이게 조금 더 빨라요.. 당연한거지마..

Function Get_FileSize(FileName: String): DWord;
Var
  FH: Integer;
Begin
  Result := 0;
  FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone);
  Try
    if FH <> INVALID_HANDLE_VALUE then
      Result := GetFileSize(FH, nil);
  Finally
    FileClose(FH);
  End;
end;

1

2

3

4

5

6

7

8

9

10

11

12

13

Function Get_FileSize(FileName: String): DWord;

Var

FH: Integer;

Begin

Result := 0;

FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone);

Try

if FH <> INVALID_HANDLE_VALUE then

Result := GetFileSize(FH, nil);

Finally

FileClose(FH);

End;

end;

IP를 이용한 컴퓨터 이름 알아내기 <-- 어딘가에서 가져 왔는데 ㅜ.ㅜ

uses WinSock;

function TForm_Main.GetIPName(IP: String): String;
var
  WSAData: TWSAData;
  sin: TSockAddrIn;
  pHost: PHostEnt;
begin
  WSAStartup($0202, WSAData);

  sin.sin_family := AF_INET;

  sin.sin_addr.S_addr := Inet_Addr(pChar(IP));

  pHost := gethostbyaddr(Pointer(@sin.sin_addr), 4, PF_INET);

  if pHost <> nil then
  begin
    Result := pHost^.h_name;
  end
  else
  begin
    Result := '';
  end;

  WSACleanup;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

uses WinSock;

function TForm_Main.GetIPName(IP: String): String;

var

WSAData: TWSAData;

sin: TSockAddrIn;

pHost: PHostEnt;

begin

WSAStartup($0202, WSAData);

sin.sin_family := AF_INET;

sin.sin_addr.S_addr := Inet_Addr(pChar(IP));

pHost := gethostbyaddr(Pointer(@sin.sin_addr), 4, PF_INET);

if pHost <> nil then

begin

Result := pHost^.h_name;

end

else

begin

Result := '';

end;

WSACleanup;

end;

iostat Note: 다음　내용은　AIX V4.1　이상에서는　검증되지　않은　내용입니다． 다음에　설명되는　내용은　베리　사드(Barry Saad)씨가　 /AIXtra(1) 　1994　년　1/2월호에　기고한　 “Performance Tuning: A Continuing Series — The iostat Tool”의　 내용에　기초한　것이다． 소개 여기서는　”iostat”　를　이용하여　I/O　부시스템과　 CPU　의　병목을　어떻게　찾아내는가에　대한　내용을　 설명할　것이다．　”iostat”　는　커널의　주소공간을　 표본추출하고，　매　시각　틱(2) 마다　 새롭게　되는　여러　카운터들(3) 로부터　 자료를　뽑아　작업을　한다．　이의　결과들－tty, CPU와　 입출력　부시스템의　활동들을　망라함－은　매초단위로　…

ORACLE 데아타 세로 출력을 가로로 출력되게 하는 예제

Select Doff_No,
        SL_BR,
        LTRIM(Max(SYS_CONNECT_BY_PATH(output_code,',')),',')
        ,Count(1)
From (
  SELECT ROW_NUMBER() OVER ( PARTITION BY Doff_No,
  SubStr(SL_BR,2,1)
  ORDER BY Doff_No,
  SubStr(SL_BR,2,1) ) Rn,
  Doff_No,
  SubStr(SL_BR,2,1) SL_BR,
  output_code
  From SL_ActualRoll
  Where Doff_No Like 'J182%'
  and OutPut_Code is not Null
)
Where SL_BR is Not Null

Start With Rn = 1
CONNECT bY Prior Doff_NO = DOFF_NO /* 그룹 걸넘들이 다 and로 묶어야 한다. */
       And Prior SL_Br = SL_BR
       and Prior Rn = Rn - 1
Group By Doff_No, SL_BR

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

Select Doff_No,

SL_BR,

LTRIM(Max(SYS_CONNECT_BY_PATH(output_code,',')),',')

,Count(1)

From (

SELECT ROW_NUMBER() OVER ( PARTITION BY Doff_No,

SubStr(SL_BR,2,1)

ORDER BY Doff_No,

SubStr(SL_BR,2,1) ) Rn,

Doff_No,

SubStr(SL_BR,2,1) SL_BR,

output_code

From SL_ActualRoll

Where Doff_No Like 'J182%'

and OutPut_Code is not Null

)

Where SL_BR is Not Null

Start With Rn = 1

CONNECT bY Prior Doff_NO = DOFF_NO /* 그룹 걸넘들이 다 and로 묶어야 한다. */

And Prior SL_Br = SL_BR

and Prior Rn = Rn - 1

Group By Doff_No, SL_BR

문자열 관련 몇가지 함수

요즘에 델파이를 배우는 분들 중에는 잘 모르시는 분들이 많을꺼 같아서 올립니다. 설명은 너무 쉬워 생략하고 혹 모르신다면, 한번 해보세요. Format(‘%*d’,[10,5] ) // >_________5<…

www.주소를 IP알아내고 Ping 날려보기…

말그대로 입니다. 물론 인디를 써도 됩니다. 근데. 웬지 말들고 싶어서 짜집기 해서 맹글어 봤습니다. 출처는 이곳 저곳에서 짜집기 한것으로 꽤 오래전에 만든거라.. ㅜ.ㅜ 죄송 합니다….

EagleSoft

[카테고리:] 델파이

JPEG 이미지 Resize 해서 저장하기.

Delphi, C++ Builder IDE 보완용 GExpets

어떤 Grid를 사용한것인가? 내가 추천하는 Grid..

ListView에서 선택된 Item으로 Scroll 하기.

화일 사이즈 알아내기…. 2가지…

IP를 이용한 컴퓨터 이름 알아내기 <-- 어딘가에서 가져 왔는데 ㅜ.ㅜ

IOSTAT 관련 정보

ORACLE 데아타 세로 출력을 가로로 출력되게 하는 예제

문자열 관련 몇가지 함수

www.주소를 IP알아내고 Ping 날려보기…

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글