본문 바로가기

전체 글

Delphi/꿀팁 WebBrowser로 자동로그인 만들기 - 1 1. 폼에 WebBrowser와 Button을 하나 올려놓고 SHDocVw와 MSHTML을 추가합니다.usesSHDocVw, MSHTML;TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; procedure Button1Click(Sender: TObject); procedure WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);private { Private declarations } public { Public declarations } end;2. 버튼 클릭 이벤트에서 예제로 사용할 네이버 로그인 페이지를 불러옵니다.p..
Delphi/간단하게 간단하게 FieldByName 속도 향상시키기 반복문에서 FieldByName을 사용하는 것이 크게 걱정할 속도는 아니다라는 말도 있긴 하지만정보 공유차원에서 작성해 보았습니다. var Field1 : TField; begin Field1 := DataSet.FieldByName('Field1'); ShowMessage(Field1.AsString); end;FieldByName이 매번 필드를 찾는 시간을 줄이고 Field1에 저장된 필드정보를 사용합니다. 다음과 같은 상황일 때 유의미하게 사용됩니다.beginwhile not DataSet.Eof do begin DataSet.FieldByName('Field1').AsString := DataSet.FieldByName('Field1').AsString + 'Test String'; DataSet..
Delphi/꿀팁 Registry에 키, 값 등록하기 - 1 uses .., Registry; procedure SetRegistry; var Reg: TRegistry; begin Reg := TRegistry.Create; //윈도우가 64비트일 경우 WOW6432Node로 저장되는 것을 원하지 않을 때 사용합니다. //Reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY); try //Root를 선택합니다. Reg.RootKey := HKEY_LOCAL_MACHINE; //Key가 없을 경우 생성 if Reg.OpenKey('\Software\Test', True) then begin //Key에 저장할 타입과 값을 입력합니다. Reg.WriteString( 'str', '테스트 입니다.'); Reg.Writ..

티스토리툴바