본문 바로가기
반응형

Delphi, RadStudio82

[개발/Delphi] WinCrypt API32 로 문자열 MD5 암호화 하기 MD5 암호화를 찾아보면서...MD5 암호화 리턴값이 다른 경우가 꽤나 있다. 그래서 windows에서 제공하는 WinAPI32 를 사용하기로 했다.WinCrypt API를 사용하기로 했다.그리고, 값이 제대로 나오는 방법을 찾아서 구현했다. 또, 아래 사이트가 내가 구현한 것과 거의 유사하다. 아래 소스가 공유가 많이 되었으면 좋겠다. 동일한 md5 암호화 값이 나오게 [개발/Delphi] WinCrypt API32 로 문자열 MD5 암호화 하기 출처: http://www.scalabium.com/faq/dct0173.htm function MD5(const Value: string): string; var hCryptProvider: HCRYPTPROV; hHash: HCRYPTHASH; bHash:.. 2012. 5. 23.
[개발/delphi] 모니터 켜고 끄기 [개발/delphi] 모니터 켜고 끄기 // offSendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); // onSendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1); 2012. 5. 12.
[개발/delphi] string to char array 문자열 복사 [개발/delphi] string to char array 문자열 복사 Visual C++ 뿐만 아니라 델파이도... 배열 문자열에 string 문자열을 복사해야할 경우가 생긴다. StrLCopy () 함수를 사용하여 해결해 보자. var ch: array[0..10] of Char; c: Char; x: Integer; st: string; begin st := 'Testing'; StrLCopy(PChar(@ch[0]), PChar(st), High(ch)); // or StrPLCopy(ch, st, High(ch)); x := 100; for c in ch do begin Canvas.TextOut(x, 100, c); Inc(c, Canvas.TextWidth(c) + 3); end; end; 2012. 2. 21.
[개발/delphi] 다른 프로그램 버튼 클릭하기 다른 프로그램 버튼 클릭하기 // in delphi procedure TForm2.Button1Click(Sender: TObject) var hParent: HWND; hChild: HWND; begin hParent := FindWindow('TForm1', nil); if hParent 0 Then begin hChild := FindWindowEx(hParent, 0, 'TButton', nil); if (hChild 0) Then begin SendMessage(hChild, WM_LBUTTONDOWN, 0, 0); SendMessage(hChild ,WM_LBUTTONUP, 0, 0); end; end; end; 2012. 2. 7.
[개발/delphi] Indy 을 이용한 idHTTP POST 파일 전송 예제 [개발/delphi] Indy 을 이용한 idHTTP POST 파일 전송 예제 출처 : http://namul.pe.kr/10?category=4 Indy 에 TidMultiPartFormData 유닛이 있더군요. TidMultiPartFormDataStream 을 이용해서 파일등을 POST하는 예제 입니다. procedure TFmMain.Button1Click(Sender: TObject); var DataStream : TidMultiPartFormDataStream; rs: TMemoryStream; begin DataStream := TIdMultiPartFormDataStream.Create; rs := TMemoryStream.Create; try idHTTP1.Request.ContentT.. 2012. 1. 25.
[개발/delphi] How can I pass PostData when I Navigate to a URL [개발/delphi] How can I pass PostData when I Navigate to a URL Q : How can I pass PostData when I Navigate to a URL? A : I call the below method with a URL destination, PostData in the format of 'animal=cat&color=brown' etc. and the TWebBrowser object that I want to load the URL inside of... procedure TDBModule.Navigate(stURL, stPostData: String; var wbWebBrowser: TWebBrowser); var vWebAddr, vPost.. 2012. 1. 25.
반응형

티스토리툴바