Registriert seit: 8. Mär 2005
Ort: Oppenweiler
105 Beiträge
Delphi 2007 Enterprise
|
Re: TIdHttpServer und XML
8. Mär 2005, 11:10
Danke für den schnellen Tip,
doch ich mach das ganz unkonventionell!
Ich hole mir die Daten im OnCommandGet via TStringStream. Das sieht dann so aus:
myData := (aRequestInfo.PostStream AS TStringStream).DataString;
Dazu habe ich beim HTTP-Server an das Ereignis OnCreatePostStream die folgende Prozedur gehängt:
procedure TFrmMain.myHTTPServerCreatePostStream(ASender: TIdPeerThread;
var VPostStream: TStream);
begin
VPostStream := TStringStream.Create('');
end; //================================================== ======================
Die Daten in myData speichere ich mit der folgenden Prozedure
procedure TFrmMain.SaveDataToFile( filename: String; data: String);
var f : TextFile;
begin
AssignFile( f, filename);
Rewrite( f);
Write( f, data);
CloseFile( f);
end; //================================================== ======================
Also eigentlich nichts was noch nicht geschlossen ist! Oder siehst Du in dem VPostStream ein Problem?
Frank Brinschwitz
|