delphi使用webbrowser獲得網(wǎng)頁源代碼-資料下載頁
2025-08-12 10:01本頁面
【導讀】unitUnit1;Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Activex,ComObj,Dialogs,OleCtrls,SHDocVw,StdCtrls;Edit1:TEdit;Button1:TButton;Memo1:TMemo;end;Form1:TForm1;BufSize=$10000;Size:Int64;Stream:IStream;hHTMLText:HGLOBAL;ifnotAssigned()thenExit;OleCheck((IPersistStreamInit,psi));//OleCheck((Size));hHTMLText:=GlobalAlloc(GPTR,BufSize);OleCheck((Stream,False));Size:=StrLen(PChar(hHTMLText));SetLength(Result,Size);CopyMemory(PChar(Result),Pointer(hHTMLText),Size);Stream:=nil;end;psi:=nil;end;end;procedure(Sender:TObject);end;procedure(Sender:TObject);end;procedure(Sender:TObject;:=GetHtml(WebBrowser1);end;end.
【正文】 ream := nil。 end。 finally psi := nil。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin ()。 end。 procedure (Sender: TObject。 const pDisp: IDispatch。 var URL: OleVariant)。 begin if = pDisp then :=GetHtml(WebBrowser1)。 end。 end.
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1