Thema: Delphi TIdHttpServer und XML

Einzelnen Beitrag anzeigen

FrankBrin

Registriert seit: 8. Mär 2005
Ort: Oppenweiler
105 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: TIdHttpServer und XML

  Alt 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
  Mit Zitat antworten Zitat