Indy PUT?

[Sascha999999999]

Hi leutz,

weiß jemand warum idHTTP.PUT nicht klappt?

kleine Datein gehen, aber bei großen kommt nichts beim Server an.


Vielen Dank!

[mkinzler]

Wie groß ist groß? Was für ein Server wird verwendet? Vielleicht ist der Upload beschränkt.

[TwoFace]

Servus

Gugg mal in der Codelib. Vielleicht hilft dir das weiter.


Greetz
TwoFace

[Sascha999999999]

nicht sonderlich groß habs mal getestet 449KB Datein gehen nichtmehr!

Betroffen ist PUT und GET (POST habe ich nicht getestet).

Getestet auf localhost zu localhost.

[inherited]

"Mein Fuß tut weh aber anschauen dürfen sie ihn nicht, Herr Doktor"
Welchen Webserver verwendest du, welche Komponenten, wie sieht der Teil deines Quellcodes aus?

[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!

[Sascha999999999]

Hallo?