+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الملفات (https://delphi4arab.net/forum/forumdisplay.php?fid=22)
+--- الموضوع : Exporting File function (/showthread.php?tid=92)
Exporting File function - STRELiTZIA - 20-03-2008
بسم الله الرحمن الرحيم
ارفقت ملف مصدري Source code يحتوي على Unit متسقلة و Project مثال لعمل Export مباشرة من الــ Executable file .
بالتوفيق
ملف FileExporting.pas ---------------------
PHP كود :
(*
FileExporting unit for Educational use
Coded By STRELiTZIA 03/20/2008
---
You can change code and use it WITHOUT REMOVE MY NAME :)
--
your Action "OnClick Button" for exemple...
Code to Call : ExportFile('MyFile.txt', 'MyFile', 'TEXTFILE')
*)
unit FileExporting;
interface
uses
Classes, SysUtils, Forms;
procedure ExportFile(FileToExport, ResName, ResType: string);
implementation
procedure ExportFile(FileToExport, ResName, ResType: string);
var path: string;
Res: TResourceStream; (* <<-- Classes unit *)
begin
path := ExtractFilePath(* <<-- SysUtils unit *)(Application.ExeName(* <<-- Forms unit *));
Res := TResourceStream.Create(0, PChar(ResName), PChar(ResType));
Res.SaveToFile(path + FileToExport);
Res.Free;
end;
end.
ملف MainFrm.pas --------------------------
PHP كود :
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMain = class(TForm)
ExportBtn: TButton;
procedure ExportBtnClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Main: TMain;
implementation
{$R *.dfm}
(* ______________________________________________*)
{$R FileExport.res}
uses FileExporting, XpMan;
procedure TMain.ExportBtnClick(Sender: TObject);
begin
ExportFile('MyFile.txt', 'MYFILE', 'TEXTFILE');
(* Test if Sucess Exporting *)
if FileExists(ExtractFilePath(Application.ExeName) + 'MyFile.txt') then
ShowMessage('SUCESS : [File Exported Successfully]') else
ShowMessage('ERROR : [Nothing Exported]')
end;
(* ______________________________________________*)
end.
Exporting File function - djug - 13-12-2008
هل يمكن أن تشرح أكثر
لم أفهم ما المقصود
Exporting File function - nabilkeb - 14-12-2008
djug كتب :هل يمكن أن تشرح أكثر
لم أفهم ما المقصود
تماما مثل أخيك ! ! ! !
Exporting File function - STRELiTZIA - 15-12-2008
السلام عليكم و رحمة الله
هذا مثال بسيط يبين كيفية استئصال و إخراج ملفات من الملف التنفيذي دمجت مسبقا في الريسورسز.
Exporting File function - Ahmed18 - 27-02-2009
يعني استخراج ال overlay ؟!
Exporting File function - محمد عبد العزيز - 27-02-2009
إقتباس :overlay
ما وضع في Resource لايعتبر Overlay
Overlay هو ما زاد عن حجم البرنامج حسب ترويسة Header الملف التنفيذي
Exporting File function - TF6M - 27-02-2009
السلام عليكم
شكرا و بارك الله فيك.
Exporting File function - mohfa - 01-03-2009
اخي STRELiTZIA **** ان انوه فقط انه مع 2009 ستكون هناك مشاكل مع String و ال casting في مثل PChar , فكما تعلم ان ال String اصبح WString في هذا الاصدار و الامر سيان مع PChar ... الخ .
محمد
Exporting File function - STRELiTZIA - 01-03-2009
السلام عليكم و رحمة الله
نعم اخي محمد يجب اخي بعين الاعتبار التطابق مع دلفي 2009 و الاصدارات المستقبلية...
ملاحظة :
تاريخ هذا الموضوع : 20-03-2008, 08:32 pm يعني قبل صدور النسخة الثابتة 2009 :d
Exporting File function - wesamnet - 10-03-2009
شكرا لك عزيزي