Domanda

Qualcuno potrebbe dare un esempio di lavoro di come caricare un file utilizzando Delphi CGI.

Googled ma finora non ho avuto fortuna.

Questo è quello che ho cercato, ma sto ottenendo violazioni di accesso.

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;

Nessuna soluzione corretta

Altri suggerimenti

Componenti Usa idRunner che si possono trovare in:

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

Sono gratuiti e comprendono il codice sorgente in modo da poterli adattare.

Ho usato il codice dal seguente link per fare la mia roba webbroker do (multi) upload dei file.

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

Il sito ha un sacco di informazioni su come fare le cose con la tecnologia webbroker.

Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top