Application/Delphi Lecture126 IE URL 찾기, Frame 안의 Url 도 찾는다. uses MSHTML_TLB, OleCtrls, SHDocVw, ExtCtrls, ActiveX .... procedure TForm1.Button2Click(Sender: TObject); var pvShell : IShellWindows; ovIE : OleVariant; i : Integer; ShellWin: TShellWindows; WB: IWebBrowser2; Doc: IHTMLDocument2; Container: IOleContainer; Enumerator: ActiveX.IEnumUnknown; Unknown: IUnknown; Browser: IWebBrowser2; Fetched: Longint; NewDoc: IHTMLDocument2; FrameSource: String; /.. 2008. 8. 13. IE 버젼 구하기 uses Registry; function GetIEVersion(Key: string): string; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Internet Explorer', False); try Result := Reg.ReadString(Key); except Result := ''; end; Reg.CloseKey; finally Reg.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('IE-Version: ' + Get.. 2008. 8. 13. Gaussian Blur in Delphi You can do it like so. In informal testing it appears to take roughly twice as much time as Adobe Photoshop takes to do the same thing, which seems pretty OK to me - there are a lot of things you could do to speed it up. The gaussian kernel exp(-(x^2 + y^2)) is of the form f(x)*g(y), which means that you can perform a two-dimensional convolution by doing a sequence of one-dimensional convolution.. 2008. 8. 13. delphi 2007에서 tnt 설치 TNT 2.3 최신 버전을 Delphi 컴파일 할 경우 아래와 같은 오류가 발생합니다. [DCC Error] TntWideStrings.pas(19): F1054 Do not refer to TntWideStrings.pas. It works correctly in Delphi 2006. 소스 코드를 보면 아래와 같은 부분이 있는데, Delphi 2007에서는 설치가 되지 않는 것인지, 아니면 Delphi 2007 에는 유니코드를 지원하는 컴포넌트를 따로 제공 하거나 다른 방법이 있는지 알고 싶습니다. {$IFDEF COMPILER_10_UP} {$MESSAGE FATAL 'Do not refer to TntWideStrings.pas. It works correctly in Delphi 2006.'} .. 2008. 8. 13. 이전 1 2 3 4 5 6 7 ··· 32 다음