سؤال

يمكن لأي شخص أن يعطي مثالا للعمل حول كيفية تحميل ملف باستخدام 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.vclomponents.com/delphi/winsock___internet/idrunner-info.html.

فهي مجانية وتشمل شفرة المصدر حتى تتمكن من تكييفها.

لقد استخدمت الكود من الرابط التالي لجعل عمليات تحميل ملفات Webbroker الخاصة بي (متعدد).

http://exposureoom.com/members/skumar.aspx/Tutorials/post/18.

يحتوي الموقع على الكثير من المعلومات حول كيفية القيام بالأشياء مع تقنية Webbroker.

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top