المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : Exporting File function

STRELiTZIA
20-03-2008, 08:32 PM
بسم الله الرحمن الرحيم
ارفقت ملف مصدري Source code يحتوي على Unit متسقلة و Project مثال لعمل Export مباشرة من الــ Executable file .

بالتوفيق :)

ملف FileExporting.pas ---------------------


(*
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 --------------------------


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.
djug
13-12-2008, 11:28 AM
هل يمكن أن تشرح أكثر

لم أفهم ما المقصود
nabilkeb
14-12-2008, 11:23 PM
هل يمكن أن تشرح أكثر

لم أفهم ما المقصود

تماما مثل أخيك ! ! ! !
STRELiTZIA
15-12-2008, 11:56 AM
السلام عليكم و رحمة الله
هذا مثال بسيط يبين كيفية استئصال و إخراج ملفات من الملف التنفيذي دمجت مسبقا في الريسورسز.
Ahmed18
27-02-2009, 01:12 AM
يعني استخراج ال overlay ؟!
B.M.AbdelAziZ
27-02-2009, 09:19 AM
overlay

ما وضع في Resource لايعتبر Overlay
Overlay هو ما زاد عن حجم البرنامج حسب ترويسة Header الملف التنفيذي
TF6M
27-02-2009, 10:54 AM
السلام عليكم
شكرا و بارك الله فيك.
mohfa
01-03-2009, 11:27 AM
اخي STRELiTZIA **** ان انوه فقط انه مع 2009 ستكون هناك مشاكل مع String و ال casting في مثل PChar , فكما تعلم ان ال String اصبح WString في هذا الاصدار و الامر سيان مع PChar ... الخ .


محمد
STRELiTZIA
01-03-2009, 11:58 AM
السلام عليكم و رحمة الله
نعم اخي محمد يجب اخي بعين الاعتبار التطابق مع دلفي 2009 و الاصدارات المستقبلية...

ملاحظة :
تاريخ هذا الموضوع : 20-03-2008, 08:32 pm يعني قبل صدور النسخة الثابتة 2009 :d
wesamnet
10-03-2009, 03:14 PM
شكرا لك عزيزي