Загрузите файл с помощью Delphi CGI.
Вопрос
Может ли кто-нибудь привести рабочий пример загрузки файла с помощью 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;
Нет правильного решения
Другие советы
Используйте компоненты idRunner, которые вы можете найти по адресу:
http://www.vclcomComponents.com/Delphi/Winsock___Internet/idRunner-info.html
Они бесплатны и включают исходный код, поэтому вы можете их адаптировать.
Я использовал код по следующей ссылке, чтобы мой веб-брокер мог загружать (много) файлов.
http://exposureroom.com/members/skumar.aspx/tutorials/post/18
На сайте есть много информации о том, как работать с технологией веб-брокера.
Не связан с StackOverflow