Hochladen einer Datei mit Delphi CGI

Question

Könnte jemand bitte ein funktionierendes Beispiel dafür, wie eine Datei mit Delphi CGI laden.

Ich habe gegoogelt aber bisher noch kein Glück gehabt.

Das ist, was ich habe versucht, aber ich bin immer Zugriffsverletzungen.

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  lFileName   : string;
  lFileStream : TFileStream;
begin
  lFileName   := Request.Files[0].FileName;
  lFileStream := TFileStream.Create(lFileName, fmCreate);
  try
    lFileStream.CopyFrom(Request.Files[0].Stream, Request.Files[0].Stream.Size);
  finally
    lFileStream.Free;
  end;
end;

Answer 1

Mit idRunner Komponenten, die Sie können finden Sie unter:

http://www.vclcomponents.com/Delphi/Winsock___Internet/idRunner -info.html

Sie sind kostenlos und umfassen Quellcode, damit Sie sie anpassen kann.

Answer 2

Ich habe den Code aus dem folgenden Link verwendet, um meine WebBroker Sachen tun (multi-) Das Hochladen von Dateien zu machen.

http://exposureroom.com/members/skumar.aspx/tutorials / post / 18

Die Seite hat eine Menge Informationen darüber, wie die Dinge zu tun, mit der WebBroker Technologie.