delphi et PDFMAIL

ان كان ما فهمته صحيح:

PDFmail برنامج تجاري

تريد استعماله لإرسال ملفات PDF عبر البريد

صحيح ؟ و لما ذا لا تستخدم دلفي لارسال الرسالئل دون البرنامج ؟

ftp://ftp.rte.fr/Products/PDFmail/Evaluat...ish/Install.exe

السلام عليكم

شكرا على الرد سأوضح لكم اكثر

انا استعمل ملفات اكسل على انها قاعدة بياناة لماذا اكسل( طلب الزون) وانا عبد مأمور

مشروعي يحتوي على الدلي الممثل في الشكل 1

الدليل الاحمر يمثل قاعدة ويوجد اكثر من دليل واحد وكل دليل يحتوي على بيانات ممثلة في ملفاة اكسل

المطلوب ظغط الدليل ب zip واساله عن طريق البريد الالكتروني مرفقا ايظا بملف PDF يوجد فيه تقارير للطباعة

1- ظغط الدليل ب zip الاداة DLL ZipDll.dll delhpi

2-ظغط ملفاة في شكل PDF الاداة PDFMAIL

3- ارفاق الملفين بمايل الاداة OutlookApplication

المشكلة 2 لانشا ء PDF يجب تحديد المسار اي وجهة تخزين ملف PDF الصورة السابق اريدها برمجيا

هناك طريقة لكنها صعبة ولا اريد التعقيد اكثر في هذا المشروع

الطريقة هي التحكم في برنامج خارجي من الدلفي عن طريق معرفة مكان البرنامج في الذاكرة HANDEL

السؤال هل من طريقة لانشاء ملف PDF دون ادراج اي مكون خارجي (عندنا ممنوع ) او استعمال PDFMAIL or PDFCREATOR

مع تغيير الوجه اليا

شكرا

السلام عليكم

للرفع فقط

هل من الممكن ان لا يوجد احد انشا PDF من قبل بواسطة الدلفي

انتظر الرد الزبون في الانتظار ايظا

شكرا

l'image de l'application

merci

امل ان يفيدط هذا الرابط

http://www.colorpilot.com/pdfsample_delphi.html

شكرا على الرد السريع

الا اني لا استطيع اضافة مكوناة اكتيف اكس جديدة وليس بسهل انشاءPDF سطر بسطر

لا تريد استخدام مكونات...هل جربت PDFCreator هو مجاني و متوفر بموقع SourceForge

يعمل مثل غيره كطابعة افتراضية يكفي الطباعة التقرير ليحوله لملف PDF

السلام

اظن انا الاخوة لم يفهمو قصدي

1-في المؤسسة التي اعمل بها لا يسمح لاحد التغير في قائمة المكوناة لست انا الذي لا اريد

2- المشكلة نفسها مع PDFCreator يطلب مني ادخال مسار التخزين SaveDialoge

ساوظح بريقة تقنية

اريد ان استعمل احد ملفاة الدلل ل PDFMAIL OR PDFCreator او غيرهم

ليتم الحفظ اليا في مجلد تابع لمشرويعي لاغير

او استعمال احد مكتباة دلل DLL التي تقوم بانشاء PDF كي ازيد الملف DLL الي المشروع لا مكون

شكرا على صبركم اخوكم زكيري عبد العالي

حسنا وجد الحل

http://www.bullzip.com/products/pdf/info.php

اقتباس

This program is FREEWARE which means that it is FREE for personal and commercial use. It does not contain any advertising or popups (Really!).

Features

Print to PDF from almost any Windows program.

Direct output to the same file each time or prompt for destination.

Control if the printer should ask if you want to see the resulting PDF document.

Control output and prompts programmatically.

Setup can run unattended.

مكون اخر مجاني مبرجمه اسمه اسماعيل من اسبانيا واخر سيسرك ان شاء الله بنفس الصفحة

http://usuarios.lycos.es/isma/expack.htm

ان كان ممنوع عليك استخدام مكونات و مسموح استخدام DLL يمكنك تحويل المكون الى DLL وتستخدمه :D

esslam

merci pour les composant

زكيري عبد العالي هل انحل مشكلك

اه

شكرا لكن انا مجبر بالعمل مع PDFMAIL OR PDFCREATOR

لقد اتصل المسؤول بالزبون لمعرفة ان كان يملكون ملف DLL المتحكم خي خصائص PDFMAIL وذلك بعد ان اخبرنا مصدر PDFMAIL عن وجود ملف دلل يحتوي علي كل الدوال اللزمة لكن يجب شرائه المهم ان ارادو شراء مكون هو افظل وان ارادو الملف لهم الخيار

الحمد لله لس في اكوادي اخطاء الا في الغة الفرنسية اخطاء امائية

اتممت بنجاه

السلام عليكم

لقد وجدت الحل PDFMAIL بعد ان تاكدت من عدم استعماله لقاعدة خاصة ببيناته او ملف ini

البيانات محفوظة في الرجيستري

راجع

regedit

السلا م عليكم

عندي مشكلة بسيطة وهي كيف احطم الكائن OLEVariant من الذاكرة

جرت quitفهي تغلق ملفاة وارد اخري ليس لها علاقة بالمشروع

جربة كل من free et Destroy لكن لا تعمل

merci,

للرفع

جد هام

شكرا

هذا ما هو مكتوب في Help

procedure TF_EG12_SYNTHESES_EDITIONS.ConvertXlsToPDF(iPath,iPDFFileName:string);

var

vExcelApplication:TExcelApplication;

vMonClasseur : _workbook;

vDefaultFile,vOldPrint:string;

Reg: TRegistry;

vLCID,vMailMode,vFileMode:integer;

vDestinationWizard,vViewFile,vSendMail:boolean;

begin

iPDFFileName:=ExtractFilePath(iPath)+iPDFFileName;

Reg:= TRegistry.Create;

reg.RootKey:=HKEY_CURRENT_USER;

reg.OpenKey('Software\RTE\PDFmail\PDFprinter',true);

vFileMode:=reg.ReadInteger('FileMode');

vDefaultFile:=reg.ReadString('DefaultFile');

vSendMail:=reg.ReadBool('SendMail');

vViewFile:=reg.ReadBool('ViewFile');

vDestinationWizard:=reg.ReadBool('DestinationWizard');

vMailMode:=reg.ReadInteger('MailMode');

reg.WriteInteger('FileMode',5);

reg.WriteInteger('MailMode',0);

reg.WriteString('DefaultFile',iPDFFileName);

reg.WriteBool('SendMail',False);

reg.WriteBool('ViewFile',True);

reg.WriteBool('DestinationWizard',False);

ProgBar.Position:=100;

vExcelApplication:=TExcelApplication.create(self);

vLCID:=LOCALE_USER_DEFAULT;

vExcelApplication.DisplayAlerts[vLCID] := False;

vExcelApplication.Workbooks.Close(vLCID);

vMonClasseur:=vExcelApplication.Workbooks.Open(iPath,False,False,True,True,True,

True,True,True,True,True,True,True,vLCID);

vOldPrint:=Printer.Printers[Printer.PrinterIndex];

ChangeDefaultPrinter(v_PDFmail) ;

vMonClasseur.PrintOut(1,1,1,False,'PDFMAIL',false,True,false,vLCID);

//vExcelApplication.Run('PRINTALL');

reg.WriteInteger('FileMode',vFileMode);

reg.WriteString('DefaultFile',vDefaultFile);

reg.WriteBool('SendMail',vSendMail);

reg.WriteBool('ViewFile',vViewFile);

reg.WriteBool('DestinationWizard',vDestinationWizard);

reg.WriteInteger('MailMode',vMailMode);

ChangeDefaultPrinter(vOldPrint) ;

Reg.CloseKey;

Reg.Free;

ProgBar.Position:=0;

vExcelApplication.Workbooks.Close(LCID);

vExcelApplication.Free;

end;

السلام وجدة الحل

procedure TF_EG1_GESTION_ACOR.FormClose(Sender: TObject;var Action: TCloseAction);

begin

with data do begin

//--------------------------------------------------------------------------

if vApplicationExcel.Workbooks.Count=0 then

begin

vApplicationExcel.DisplayAlerts[vLCID_excel] := False;

vApplicationExcel.Workbooks.Close(vLCID_excel);

vApplicationExcel.Quit;

vApplicationExcel.Free;

end;

//--------------------------------------------------------------------------

end;