Forum: Object-Pascal / Delphi-Language
Delphi
by nTE,
12. Okt 2003
Danke, das hört sich ziemlich gut an.
Ich werde jetzt erstmal schlafen gehen und das morgen err heute mal probieren.
Leider habe ich grade feststellen müssen, dass die Doku in Englisch und dazu noch (Borland untypisch) recht knapp ist. :P
Eine dumme Frage, kann ich herausfinden, wo ich nach einem Redirect gelanded bin?
Wenn ja, wie? ;)
Also, danke nochmal und gute Nacht.
Forum: Object-Pascal / Delphi-Language
Delphi
by nTE,
11. Okt 2003
Okay, ich habe es einfach mal mit sSource.LoadFromFile als Ersatz probiert (den Rest so gelassen), um festzustellen ob es an SaveToStrings liegt und du hattest Recht Christian, da ist der Wurm drin.
Ich habe mal geschaut was bei TEmbeddedWB so falsch sein könnte und bin bisher nur auf das gestoßen:
constructor TEmbeddedWb.Create(Owner: TComponent);
var
Buf: array of Char;
begin
...
Forum: Object-Pascal / Delphi-Language
Delphi
by nTE,
11. Okt 2003
Auf der Page steht nur, dass SaveToStrings den Source nach TStrings speichert. :P
Embedded WB Homepage
Daher habe ich mal das Nötige rauskopiert (hoffe ich).
function TEmbeddedWB.SaveToStrings(AStrings: TStrings): HRESULT;
begin
// while ReadyState <> READYSTATE_COMPLETE do
Forum: Object-Pascal / Delphi-Language
Delphi
by nTE,
11. Okt 2003
Erstmal danke für die Antwort, ich habe mir alles mal angeschaut was du gesagt hast (vor allem MemProof) und habe folgendes zu berichten:
Zu 1.
Ich überprüfe vorher (sorry, hab ich nicht aufgeführt) ob iPos > 0 ist (also ob überhaupt was gefunden wurde) und der hintere Teil ist nicht "(length(tempstr)-length(tempstr))" sondern "Length(TempStr) - (Length(TempStr) - NextPos('<', TempStr, 1) +...
Forum: Object-Pascal / Delphi-Language
Delphi
by nTE,
11. Okt 2003
Also, mein Problem ist folgendes:
Ich habe ein Programm welches Informationen einliest aus TEmbeddedWB. (ach nee ;)
Mit SaveToStrings speichere ich den Source der Seite in einer TStringList die jedes mal Lokal erstellt und wieder gefreet wird. (Ich bin mir ziemlich sicher, dass ich das try..finally Konstrukt richtig anwende und bei jedem UP-Aufruf wird die Codezeile mit .Free auch...