Forum: Netzwerke
Delphi
by sephraina,
25. Jun 2015
Danke, Problem gelöst :-D
Habe jetzt mein
procedure TFServer.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
mit der Abfrage ergänzt:
if ARequestInfo.Command ='GET' then
begin //irgendwas
end;
else if ARequestInfo.Command ='POST' then
Forum: Netzwerke
Delphi
by sephraina,
25. Jun 2015
Danke, das erklärt einiges.
Aber wie mache ich jetzt den Unterschied zwischen Get und Post?
-Ich schicke ja den Stream mit http.post()?
Ist das im 'Acontext: tidcontext' ?? irgendwie so?
if Acontext = 'Get' then showmessage('get') else if Acontext = 'post' then showmessage('post');
aber das sind ja andere Typen...
Forum: Netzwerke
Delphi
by sephraina,
25. Jun 2015
Hallo,
Ich versuche gerade von meinem Client aus einen Post auf meinen Server zu machen, aber irgendwo stecke ich fest. Der Server hat zwar eine Verbindung zum Client (Get-Request funktioniert) aber meint Post will er nicht anzeigen.
Hier der Client-Code
procedure TForm2.Button2Click(Sender: TObject);
var s: TMemorystream;
str: TStringstream;
a: string;
p: integer;