文章分类 -  Delphi-网络转载

摘要：library Plugin1; uses SysUtils, Classes, Unit1 in 'Unit1.pas' {Plugin1Frm}; {$R *.res} exports ShowPlugin, GetCaption; begin end. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TPlugin1Fr... 阅读全文

摘要：uses IdHttp;...function HttpGet(const Url: string; var Html: string): Boolean;var HttpClient: TIdHTTP;begin Result := False; HttpClient := TIdHTTP.Create(nil); try Html := HttpClient.Get(Url); Result := True; except on e: Exception do begin end; end; HttpClient.Free;end;Indy采用... 阅读全文

摘要：unit Crc32;interface usesWindows,SysUtils,Classes;const //Crc32表Table:Array[0..255] of DWORD=( $00000000, $77073096, $EE0E612C, $990951BA,$076DC419, $706AF48F, $E963A535, $9E6495A3,$0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91,$1DB71064, $6AB020F2, $F3B97148, 阅读全文