Загрузить файл с помощью Delphi CGI

Question

Может ли кто-нибудь привести рабочий пример загрузки файла с помощью Delphi CGI.

Я гуглил, но пока мне не повезло.

Это то, что я пытался, но я получаю нарушения прав доступа.

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

Используйте компоненты idRunner, которые вы можете найти по адресу:

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

Они бесплатны и включают исходный код, чтобы вы могли адаптировать их.

Answer 2

Я использовал код по следующей ссылке, чтобы мои веб-брокеры загружали файлы (несколько файлов).

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

На сайте много информации о том, как работать с технологией веб-брокера.