سؤال
يمكن لأي شخص أن يعطي مثالا للعمل حول كيفية تحميل ملف باستخدام 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.
لا تنتمي إلى StackOverflow