Hallo,
nochmal eine Frage zum Speichern des Inhalts eines TWebBrowsers als MHT-Datei:
Diese Funktion speichert den aktuellen Inhalt eines TWebBrowsers als MHT-Datei. Das scheint die einzige Möglichkeit zu sein, so eine MHT-Datei zu erhalten (Google konnte mir sonst nicht weiterhelfen).
Das funktioniert auch super, aber ich brauche den MHT-Inhalt in einem TStream, und möchte ihn nicht zuerst in einer Datei abspeichern, um ihn dann gleich wieder einzulesen.
Das Ding, das da den Inhalt enthält, ist ein _Stream, definiert in ADODB_TBL, hat nur eine SaveToFile Funktion, und ist wohl nicht kompatibel zu einem normalen Stream
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure Save_MHT (WB: TWebBrowser; FileName: TFileName);
var
Msg: IMessage;
Conf: IConfiguration;
Stream: _Stream;
URL : widestring;
begin
URL := WB.LocationURL;
Msg := CoMessage.Create;
Conf := CoConfiguration.Create;
try
Msg.Configuration := Conf;
Msg.CreateMHTMLBody (URL, cdoSuppressAll, '', '');
Stream := Msg.GetStream;
Stream.SaveToFile (FileName, adSaveCreateOverWrite);
finally
Msg := nil;
Conf := nil;
Stream := nil;
end;
end; |
Weiß jemand, wie man aus so einem _Stream die Daten herausholen kann, ohne sie in eine Datei zu speichern?
Vielen Dank!
Holger
