Hallo,
Ich habe eine
DLL welche eine weitere
DLL aufruft.
Ich nenne die erste
DLL mal DLL1 und die andere Spaßeshalber DLL2.
In der DLL2 möchte ich eine Webseite auslesen. Da dieses auf dieser Seite irgendwie nicht mit IDHTTP geht, mache ich dies mit TWebBrowser.
Hier ist nun der Quellcode dazu.
Delphi-Quellcode:
Procedure TForm2.Starten;
var ini : TIniFile;
Quelltext,
URL :
String;
vTemp : Variant;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '
Config/einstellungen.ini');
Try
URL := ini.ReadString('
Aktuell','
URL','
');
ShowMessage(
URL);
Fertig := False;
Webbrowser1.Navigate(
URL);
if fertig <> True
then Application.ProcessMessages;
vTemp := WebBrowser1.Document;
Quelltext := vTemp.Body.OuterHTML; <--- hier ist ein Fehler
ShowMessage(Quelltext);
Finally
ini.free;
End;
END;
Sobald ich aber den Quelltext in einen String laden möchte, bekomme ich immer einen Laufzeitfehler.
Interressanterweise funktioniert aber genau dashier in der DLL1 wunderbar. Aus Organisatorischen Gründen möchte ich es aber in DLL2 haben. Sobald ich die Zeile rausnehme geht auch alles nur ich habe keinen Quelltext.
Was mache ich falsch ?
mfg
Tommy82