Indy PUT?

[Sascha999999999]

ja, ok:

IdHTTP und idHTTPServer:

Server:

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandOther(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var Stream: TMemoryStream;
begin
if(ARequestInfo.Document='/Daten.php') then begin
if(AContext.Binding.IP=formDatenanzeige.IP) and (formDatenanzeige.Open=true) then begin //Überprüfung ob die IP mit dem geöffneten Fenster übereinstimmt.
Stream:=TMemoryStream.Create;
Stream.LoadFromStream(ARequestInfo.PostStream);
Stream.SaveToFile('datein/'+AContext.Binding.IP+'_'+random); //Speichern (bei großen datein leer)
formDatenanzeige.memo1.items.loadfromStream(Stream); //anzeigen (das selbe)
Stream.free;
end;
end;
end;

Clint:

Delphi-Quellcode:

procedure TClint.Timer1OnTimer(Sender: TObject);
var idHTTP2:TidHTTP;
var ResponseStream: TMemoryStream;
begin
idHTTP2:=TidHttp.Create;
idHTTP2.Request.UserAgent:='Clint';
idHTTP2.ProtocolVersion:=pv1_1;
idHTTP2.Request.URL:='http://'+adresse+':'+port+'/Daten.php';
try
idHTTP2.Request.ContentType := 'application/x-www-form-urlencoded';
IDHttp2.HandleRedirects := True;
idHTTP2.Put('http://'+adresse+':'+port+'/Daten.php', FiletoStream(Datei), ResponseStream);  //Datei senden
except
end;
end;

Danke!