프로그램 관련 Archives - 12 중 11 번째 페이지

EmbeddedWeb에서 클릭시 New윈도우가 나올때 막고 내가 원하는 EmbededWeb에 띄우기.

EmbeddedWeb에서 클릭시 New윈도우가 나올때 막고 내가 원하는 EmbededWeb에 띄우기. EmbededWeb에서 OnNewWindows3 이벤트에서 다음과 같은 작업을 합니다.

procedure TFRM.EmbeddedWB1NewWindow3(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,
  bstrUrl: WideString);
begin
  Cancel := True;    // 새로운 Explorer창을 띄우지 못하도록 합니다.
  EmbeddedWB2.Go( bstrUrl  );   // URL을 내가 원하는 곳으로 출력합니다.
  Inc( clickCount );
end;

1

2

3

4

5

6

7

8

procedure TFRM.EmbeddedWB1NewWindow3(ASender: TObject; var ppDisp: IDispatch;

var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,

bstrUrl: WideString);

begin

Cancel := True; // 새로운 Explorer창을 띄우지 못하도록 합니다.

EmbeddedWB2.Go( bstrUrl ); // URL을 내가 원하는 곳으로 출력합니다.

Inc( clickCount );

end;

도움되시길..

일반 DBGrid의 내용을 마우스로 누르지 않고 마우스 포인터위치로 Cell 이동하기 및 값 가져오기 입니다.

델마당에 팁으로 올린 내용인데. 제목 그대로 입니다. 일반 DBGrid의 내용을 마우스로 누르지 않고 마우스 포인터위치로 Cell 이동하기 및 값 가져오기 입니다.

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  DBGrid : TDBGrid;
  gc : TGridCoord;
  iStartX, iStartY : Integer;

  Function ColumnName( X, Y : Integer ) : String ;
  begin
    result := '';
    gc := TStringGrid(DBGrid).MouseCoord(x,y);
    if dgIndiCator in DBGrid.Options Then
      iStartX := 0
    else
      iStartX := -1;

    if dgTitles in DBGrid.Options Then
      iStartY := 0
    else
      iStartY := -1;

    if ( gc.X > iStartX ) and ( gc.Y > iStartY ) then
      Result := DBGrid.Columns[ gc.X - (1 + iStartX ) ].DisplayName;
  end;

  procedure SetColumn2MousePos;
  var
    i : Integer;
    iMoveRecordY : Integer;
  begin
    DBGrid.SelectedIndex := gc.X - (1 + iStartX );
    iMoveRecordY := gc.Y - TStringGrid( DBGrid ).Row;
    If iMoveRecordY > 0 Then
      for i := 1 to iMoveRecordY do DBGrid.DataSource.DataSet.Next
    else If iMoveRecordY < 0 Then
      for i := iMoveRecordY to -1 do DBGrid.DataSource.DataSet.Prior;
  end;
begin
  DBGrid := TDBGrid( Sender );
  If ColumnName( X, Y ) <> '' Then
  begin
    DBGrid.Cursor := CrHandPoint;
    SetColumn2MousePos;
  end
  else
    DBGrid.Cursor := crDefault;

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

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var

DBGrid : TDBGrid;

gc : TGridCoord;

iStartX, iStartY : Integer;

Function ColumnName( X, Y : Integer ) : String ;

begin

result := '';

gc := TStringGrid(DBGrid).MouseCoord(x,y);

if dgIndiCator in DBGrid.Options Then

iStartX := 0

else

iStartX := -1;

if dgTitles in DBGrid.Options Then

iStartY := 0

else

iStartY := -1;

if ( gc.X > iStartX ) and ( gc.Y > iStartY ) then

Result := DBGrid.Columns[ gc.X - (1 + iStartX ) ].DisplayName;

end;

procedure SetColumn2MousePos;

var

i : Integer;

iMoveRecordY : Integer;

begin

DBGrid.SelectedIndex := gc.X - (1 + iStartX );

iMoveRecordY := gc.Y - TStringGrid( DBGrid ).Row;

If iMoveRecordY > 0 Then

for i := 1 to iMoveRecordY do DBGrid.DataSource.DataSet.Next

else If iMoveRecordY < 0 Then

for i := iMoveRecordY to -1 do DBGrid.DataSource.DataSet.Prior;

end;

begin

DBGrid := TDBGrid( Sender );

If ColumnName( X, Y ) <> '' Then

begin

DBGrid.Cursor := CrHandPoint;

SetColumn2MousePos;

end

else

DBGrid.Cursor := crDefault;

end;

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…

도움말 제작 프로그램 Help And Manual 이라는 프로그램을 소개합니다.

델파이로 만들어지고 DevExpress와 몇몇 공개용 컴포넌트로 만들어진 Help&Manual이라는 프로그램을 소개 합니다. 간단히 워드로 편집 하듯이 글과 이미지로 편집하고 CHM,HLP,PDF등으로 편집 출력이 가능합니다. 물론 HLP, CHM화일로…

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와　 입출력　부시스템의　활동들을　망라함－은　매초단위로　…

EagleSoft

[카테고리:] 프로그램 관련

EmbeddedWeb에서 클릭시 New윈도우가 나올때 막고 내가 원하는 EmbededWeb에 띄우기.

일반 DBGrid의 내용을 마우스로 누르지 않고 마우스 포인터위치로 Cell 이동하기 및 값 가져오기 입니다.

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

도움말 제작 프로그램 Help And Manual 이라는 프로그램을 소개합니다.

Delphi, C++ Builder IDE 보완용 GExpets

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

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

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

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

IOSTAT 관련 정보

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글