Du kannst es auch ohne das OnCreatePostStream machen:
der code ist so wie vorher nur ohne eben dieses Ereignis und OnCommandGet sieht so aus:
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
memo1.lines.add(ARequestInfo.FormParams);
end;
ARequestInfo.PostStream ist nil, da er in der Funktion TIdCustomHTTPServer.DoExecute kurz erstellt wird wenn du ihn nicht selber erstellt hast. Die Daten werden dann in ARequestInfo.FormParams kopiert (falls es sich um einen TStringStream handelt auch wenn du ihn erstellt hast) und der Stream sofort wieder freigegeben.