Websnap, File Upload

[FrankJ28]

Hallo,
manchmal sieht man den Wald vor lauter Bäumen nicht, der Request hat das Zeug schon im Bauch.
Hier ein wenig Beispielcode:

Delphi-Quellcode:

 if Request.Files.Count>0
    then begin
          myFileBuffer:=TMemoryStream.Create;
          try
           myFileBuffer.LoadFromStream(Request.Files.Items[0].Stream);
           myFileBuffer.SaveToFile('c:\temp\'+ExtractFileName(Request.Files.Items[0].FileName));
          finally
           myFileBuffer.Free;
          end;
         end;

Ciao
Frank