본문 바로가기

Application/Delphi Lecture126

urlencode wininet 이나 TWebBrower 를 이용하여 Get 또는 Post 로 데이타 전송시 특수 문자에 대한 누락 현상이 생긴다. +, %, & 등의 문자들을 사용한다면 Urlencode 를 통해 전송해야 한다. Webutil에 있는 URLEncode 함수를 간혹 정확하게 처리를 못하는 경우가 있는듯 싶다. HTTPApp에 있는 HttpEncode 함수를 사용하니 이상 없이 돌아간다. 개인적인 테스트 환경에서 참고 하길 바란다 2008. 8. 13.
String replace, getParam 함수 procedure replace(var source : string; find, repl : string); var ind : integer; begin ind := pos(find, source); if ind > 0 then begin source := copy(source, 1, ind-1) + repl + copy(source, ind + length(find), 10000); replace(source, find, repl); end end; 사용법은 replace(str,'메롱','하이'); ShowMessage(str); function GetParam(str : string; index : integer) : string; var i, count : integer; tmp : string;.. 2008. 8. 13.
String Compress /Decompress uses ZLib; (* * CompressString() usage: * * CompressedString := CompressString(DataString); *) function CompressString(const S: string) : string; var InputStream: TCompressionStream; OutputStream: TMemoryStream; Size: Integer; begin OutputStream := TMemoryStream.Create; try InputStream := TCompressionStream.Create(clMax, OutputStream); try Size := Length(S); InputStream.Write(Size, SizeOf(Size)).. 2008. 8. 13.
richedit 마지막 빈줄 없애기~ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TRichEdit = class(ComCtrls.TRichEdit) //ComCtrls의 RichEdit를 상속 Public procedure AddLast(S: string); end; TForm1 = class(TForm) RichEdit1: TRichEdit; //ComCtrls에서 정의한 RichEdit가 아니고 위에서 정의한 RichEdit가 되겠습니다. Button1: TButton; procedure Button1Click(Sender: TObject).. 2008. 8. 13.

티스토리툴바