델파이 사용법 Archives

MySQL SQL Limit –> MS-SQL and NexusDB

안녕하세요. MySQL의 SQL문중 Limit에 대해 많은 분들이 질문을 합니다. MySQL의 Limit문은 웹 페이지나 지정한 부분부터 몇개를 보여 줄때 유용하지요. Select * From 테이블 Limit 0, 12 위 SQL…

Delphi Project 에서 Application.Mainform

Delphi Project 소스에서 메인 폼을 화면에 표시하고 싶지 않을 때가 있다. 보통은 프로젝트 소스는 아래와 같다. begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. 요기서 application.Run 부분에서…

MODI(Microsoft Office Document Imaging) OCR 사용하기

MODI(Microsoft Office Document Imaging) 를 설치하고 OCR만 선택한다. Here is a code sample : In the uses clause add : ComObj, MODI_TLB units. Drop a MiDocView…

Canvas.TextRect 사용법

Canvas.TextRect 사용법이라고 하긴 좀 그렇고 TextRec을 사용하면서 왜 가운데 정렬이 안되냐고 묻는 분들이 있습니다. 대부분 가로 정렬은 잘되는데, 세로로 정렬이 안된다 합니다. 원인은 간단합니다. [tfCenter,…

델파이 기본 Hash를 이용한 MD5 파일 Check입니다.

Uses idHash, IdHashMessageDigest;

function MD5(const fileName : string) : string;
 var
   idmd5 : TIdHashMessageDigest5;
   fs : TFileStream;
   hash : T4x4LongWordRecord;
 begin
   idmd5 := TIdHashMessageDigest5.Create;
   fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
   try
     result := idmd5.HashStreamAsHex( fs ) ;
   finally
     fs.Free;
     idmd5.Free;
   end;
 end;
var
  s : String;
  c : integer;
begin
  if OpenDialog1.Execute( handle ) then
  begin
    c := GetTickCount;
    S :=  Md5( OpenDialog1.FileName );
    c := GetTickCount - c;
    Memo1.Lines.Add( intToStr( C ) + ' : ' + S );
  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 idHash, IdHashMessageDigest;

function MD5(const fileName : string) : string;

var

idmd5 : TIdHashMessageDigest5;

fs : TFileStream;

hash : T4x4LongWordRecord;

begin

idmd5 := TIdHashMessageDigest5.Create;

fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;

try

result := idmd5.HashStreamAsHex( fs ) ;

finally

fs.Free;

idmd5.Free;

end;

var

s : String;

c : integer;

begin

if OpenDialog1.Execute( handle ) then

begin

c := GetTickCount;

S := Md5( OpenDialog1.FileName );

c := GetTickCount - c;

Memo1.Lines.Add( intToStr( C ) + ' : ' + S );

end;

NexusDB로 데이타 베이스 서버를 만드는 경우

NexusDB로 데이타 베이스 서버를 만드는 경우 해야할일이 3가지 있다. 첫째 nxServerEngine.MaxRam을 디폴트값인 -1에서 다른 값으로 설정하는 것이다. MB 단위로 설정한다. 보통 필자의 경우 서버를 설치할…

Program Files 폴더 가져오는 방법중 한가지

프로그램 파일 폴더의 내용을 가져오는 예제입니다. 제 기억으로는 델파이 4부터 가능한것으로 압니다. CSIDL_PROGRAM_FILES등의내용은 ShFolder를 참고 하시면 됩니다.

Uses shFolder;

function 프로그램파일폴더_가져오기: string;

var

  폴더명: Array[0..MAX_PATH] of char;

begin

  Result := '';

  if SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0,0, @폴더명[0]) = S_OK then

    Result := 폴더명;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Uses shFolder;

function 프로그램파일폴더_가져오기: string;

var

폴더명: Array[0..MAX_PATH] of char;

begin

Result := '';

if SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0,0, @폴더명[0]) = S_OK then

Result := 폴더명;

end;

uses
  cxExportPivotGridLink;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  cxExportPivotGridToExcel('123.xls', cxDBPivotGrid1);
end;

1

2

3

4

5

6

7

8

9

uses

cxExportPivotGridLink;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

cxExportPivotGridToExcel('123.xls', cxDBPivotGrid1);

end;

EagleSoft

[카테고리:] 델파이 사용법

MySQL SQL Limit –> MS-SQL and NexusDB

Delphi Project 에서 Application.Mainform

MODI(Microsoft Office Document Imaging) OCR 사용하기

Canvas.TextRect 사용법

델파이 기본 Hash를 이용한 MD5 파일 Check입니다.

NexusDB로 데이타 베이스 서버를 만드는 경우

Program Files 폴더 가져오는 방법중 한가지

델파이로 Canvas에 글자를 각도에 맞게 출력하기

방화벽 등록하기

PivotGrid그리드의 내용을 Execl로 출력하기 입니다.

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글