ShowerThoughts
2008-06-11 14:10:53
I have one in delphi from raymond but i really can't can't can't convert it to c++
For the people who think why you still here? i have 4 hours left..
Hermpie
Function TfrmDllForm.GetSource(Sender: TObject): string;
var
document: IHTMLDocument2;
docAll: IHTMLElementCollection;
Element: IHTMLElement;
Len : integer;
I : integer;
begin
document := WebBrowser1.Document as IHTMLDocument2;
if Assigned(document) then
begin
DocAll := document.all;
Len := docAll.length;
for I := 0 to Len - 1 do
begin;
Application.ProcessMessages;
Element := docAll.Item(I,0) as IHTMLElement;
if Element.tagName = "HTML" then Result := Result + Element.outerHTML;
end;
end;
end;For the people who think why you still here? i have 4 hours left..
Hermpie