Datei hochladen mit Delphi CGI

Question

Könnte jemand bitte ein funktionierendes Beispiel dafür geben, wie man eine Datei mit Delphi CGI hochlädt.

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

Dies ist, was ich versucht habe, aber ich bekomme 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

Verwenden idRunner Komponenten finden Sie unter:

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

Sie sind kostenlos und umfassen Quellcode, damit Sie sie anpassen können.

Answer 2

Ich habe den Code von dem folgenden Link verwendet, um meine Webbroker-Sachen dazu zu bringen, (mehrere) Dateien hochzuladen.

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

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