摘要：http://blog.sina.com.cn/s/blog_51a71c010100gbua.html说明：服务器端为JAVA，编码UTF-8，返回数据编码UTF-8；数据交换格式JSON。procedure TloginForm.loginBtnClick(Sender: TObject);varjo: ISuperObject; //JSON接口req: IXMLHTTPRequest;url: WideString; //要访问的urlparams : string; //要提交的数据begin//要访问的urlurl := 'http://localhost/wuliu/se 阅读全文

摘要：FirstpDisp:IDispatch;//全局变量；ChkOpen,ChkOk:Boolean;//全局变量；FirstpDisp:=nil;//浏览URL之前赋nil；procedureTForm1.FormCreate(Sender:TObject);beginChkOpen:=true;ChkOk:=false;end;procedureTForm1.WebBrowser1BeforeNavigate2(Sender:TObject;constpDisp:IDispatch;varURL,Flags,TargetFrameName,PostData,Headers:OleVarian 阅读全文

摘要：procedure TForm1.btn1Click(Sender: TObject);var Http:TIdHTTP;begin Http := TIdHTTP.Create(nil); Http.ProxyParams.ProxyServer := '91.211.141.249'; //代理IP Http.ProxyParams.ProxyPort := 8080; Http.ProxyParams.ProxyUsername := ''; Http.ProxyParams.ProxyPassword := ''; //百度和GG屏蔽了i 阅读全文

摘要：当IdHTTP发送一个POST/GET请求到一个URL，返回的是HTTP 302跳转信息时将会抛出异常，这时只要将HandleRedirects设置为ture即可自动跳转。在自动跳转后如果继续抛出异常EIDConnClosedGracefully，可将HTTPOptions设置为[hoInProcessAuth,hoKeepOrigProtocol,hoForceEncodeParams]即可以避免抛出EIDConnClosedGracefully。 阅读全文

摘要：procedureTForm1.btn1Click(Sender:TObject);varnetStore:TNetResource;beginnetStore.dwType:=RESOURCETYPE_ANY;netStore.lpLocalName:='Z:';netStore.lpRemoteName:='\\10.1.14.144\人力';netStore.lpProvider:='';WNetAddConnection2(netStore,PChar('gdpr'),PChar('administrator 阅读全文

摘要：以前一直是自已写函数处理，没想到Delphi有一个自带的。ExtractStrings：用指定的分割符分割一个字符串为多个子字符串给你一个例子var S: string; SL: TStringList;begin S := '123,456,789 '; SL := TStringList.Create; ExtractStrings([ ', '], [], PChar(S), SL); ShowMessage(SL.Text); SL.Free;end; 阅读全文

摘要：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);procedureWMHotKey(varMsg:TWMHotKey);messageWM_HOTKEY;private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;HotKeyId:Cardina 阅读全文

摘要：{-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringListUSE StrUtils Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ; ListBox1.Items:= MakeFileList( 'E:\极品飞车' 阅读全文

摘要：一般这样嵌套：trytry//...finally//...end;except//...end; 阅读全文

摘要：/Files/jxgxy/KillThreadTest.rar 阅读全文

摘要：/Files/jxgxy/009.pdf 阅读全文

摘要：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);procedureFormDestroy(Sender:TObject);privateprocedureWMHotKey(varMsg:TWMHotKey);messageWM_HOTKEY;publicend;varForm1:TForm1;implementat 阅读全文

摘要：Thread-safety(线程安全)是指代码被多个线程同时执行的时候仍然正常工作。尤其是要满足当多个线程都需要访问同一共享数据空间的时候，只有一个线程能被满足。多线程执行的时候是处在一个共享地址空间，每个线程都可以访问其他线程的内存空间。为了使程序符合预定的执行的逻辑顺序，提出了线程安全的概念，符合线程安全标准的代码可以更好地得到控制、预测，不至于陷入后期Bug调试而无从下手的尴尬境地。在实际中要判定一段代码是线程安全的会比较困难，而往往采用相反的策略：如何会导致线程不安全？下面列出了常见的一部分。访问了全局变量或使用了堆（尤其没有自动回收的时候）。分配／释放全局限制的资源，比如文件，子进程 阅读全文

摘要：/Files/jxgxy/011.pdf 阅读全文

摘要：/Files/jxgxy/006.pdf 阅读全文

摘要：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,CheckLst;typeTForm1=class(TForm)CheckListBox1:TCheckListBox;Button1:TButton;Edit1:TEdit;procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureCheckListBox1Click(Sen 阅读全文

摘要：procedureTForm1.Button1Click(Sender:TObject);beginfinddialog1.Execute;end;procedureTForm1.FindDialog1Find(Sender:TObject);varI,J,PosReturn,SkipChars:Integer;beginforI:=0toMemo1.Lines.CountdobeginPosReturn:=Pos(FindDialog1.FindText,Memo1.Lines[I]);ifPosReturn<>0then{found!}beginSkipChars:=0;for 阅读全文

摘要：Delphi的TRegistry注册表类方法详解 收藏●GetDataInfo方法Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);TregDataInfo=record Regdata:TRegDataType;数据类型 dataSize:integer;数据大小endvaluename:和当前键关联的数据值名称value：. 阅读全文

摘要：1。synchronize方法的产生与vcl的局限性有关,因为vcl控件在同一时刻只能被单线程访问，如果多个线程同时访问vcl,vcl会出现问题。所以问了安全地访问vcl,Tthread类提供了一个方法叫synchronize，他可以让线程中的方法在主线程中执行，所以我们可以把访问vcl的代码都放在这个方法中，然后由主线程执行，从而确保vcl能被安全地访问调用.它的类型是TThreadMethod=procedure of object;procedure 参数:Sychronize(Method:TThreadMethod); 2。当创建一个线程时，vcl会在主线程中创建一个隐含的线程窗口， 阅读全文

摘要：TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection等这几个kernel32.dll中的临界区操作API的参数；TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。多线程程序中，如果各个线程要访问同一个资源，如同一个变量这 阅读全文