2022-12-23 43 0

感谢网友分享qq风华(1393774265) unit SendEMailLib;interfaceuses Winapi.Windows, System.SysUtils, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdAttachmentFi

2022-12-23 27 0

</pre><pre code_snippet_id="76206" snippet_file_name="blog_20131121_2_2675795" name="code" class="javascript">{"result":["{\"ServerCount\":2,\"Servers\":[{\"Serve

2022-12-23 68 0

const ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567'; // Base32解码function Base32Decode(const source: string): string;var UpperSource: string; p, i, l, n, j: Integer;begin UpperSource := UpperCase(source); l := Length(source); n := 0; j :

2022-12-23 45 0

uses ioutils, Types //获取指定目录下的文件与子目录procedure TForm1.Button1Click(Sender: TObject);var dfs: TStringDynArray; str: string;begin dfs := TDirectory.GetFileSystemEntries(path); Memo1.Clear; for str in dfs do Memo1.Lines.Add(str);end;

2022-12-23 49 0

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCre

2022-12-23 114 0

function DoCopyDir(sDirName: string; sToDirName: string): Boolean;var hFindFile: Cardinal; t, tfile: string; sCurDir: string[255]; FindFileData: WIN32_FIND_DATA;begin//记录当前目录 sCurDir := GetCurrentDir; ChDir(sDirName); hFindFile := FindFirstFile(&#

2022-12-23 41 0

function CopyDirAll(sDirName:String;sToDirName:String):Boolean;var hFindFile:Cardinal; //拷贝整个目录(包括子目录) t,tfile:String; sCurDir:String[255]; FindFileData:WIN32_FIND_DATA; begin //先保存当前目录 sCurDir:=GetCurrentDir; ChDir(sDirName); hFin

2022-12-23 122 0

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, IdIntercept;type TForm1 = class(TForm) Button1: TButton;