فایل های Pdf در دلفی

[reza_graphic]

با سلام خدمت مهندسان نرم افزار:11:
می خواستم بدونم چه جوری میشه تو برنامه های دلفی فایل های Pdf رو باز کرد و مرور کرد و بست
واسه پروژم می خوام .

[Arash_XL7710i_207]

یه راهش اینه که اگر adobe acrobat reader رو سیستمت نصب باشه با استفاده از چندتا تابع دنبال فایل exe اون بگردی
و با این برنامه بازش کنی.

[romixery]

از اين صفحه مي تونيد اطلاعاتي رو بدست بيارين

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[NoneForce]

سلام
ميتونيد از اين كامپوننتهايي مثل :

Gnostice PDFtoolkit VCL ProPlus 2.5
XpdfViewer Activex 3.2.0.0
eXPert PDF ViewerX 2.0.420.0
و ...
استفاده كنيد.

[F A R H A D]

سلام
اگر acrobat reader روی سیستم نصب هست، از اینجا:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

بعد از تب ActiveX میتونی vcl رو روی فرم قرار بدی
موفق باشی

[reza_graphic]

ActiveX بالا تو بخش Import AvtiveX control من نیستش و به جاش Adobe Acrobat 7.0 Browser Control Type library 1.0 هست!

[reza_graphic]

یه راهش اینه که اگر adobe acrobat reader رو سیستمت نصب باشه با استفاده از چندتا تابع دنبال فایل exe اون بگردی
و با این برنامه بازش کنی.
Acrobat Reader7.0 رو سیستمم نصب هست ، می شه توابع رو با نحوه استفادشون بگی ؟
ممنون میشم!:11:

[F A R H A D]

ActiveX بالا تو بخش Import AvtiveX control من نیستش و به جاش Adobe Acrobat 7.0 Browser Control Type library 1.0 هست!

خودشه، فقط اسمش با توجه به ورژن acrobat ی که شما نصب کردی اینجوریه

[Arash_XL7710i_207]

حالا میگردم برات پیداش میکنم.

[reza_graphic]

خودشه، فقط اسمش با توجه به ورژن acrobat ی که شما نصب کردی اینجوریه
خب چه جوری باهاش کار کنم . دستوراش چیه ؟
یه توضیحی می دی ؟
mer30

[reza_graphic]

حالا میگردم برات پیداش میکنم.
دستت درد نکنه.
یه دنیا لطف می کنی:11:

[Arash_XL7710i_207]

فعلا اینو بگیر:
در صورتی کار میکنه که Acrobat reader رو سیستم نصب باشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[NoneForce]

سلام
يك سوال، اگر طرف روي دستگاه اكروبات نصب نكرده باشه تكليف چيه؟

[F A R H A D]

خب چه جوری باهاش کار کنم . دستوراش چیه ؟
یه توضیحی می دی ؟
mer30


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینا تابع های اصلی هست، بقیه رو میتونی بعد از اینکه اسم کامپوننت رو نوشتی یه " . " بزنی و همه توابع رو ببینی


سلام
يك سوال، اگر طرف روي دستگاه اكروبات نصب نكرده باشه تكليف چيه؟

NoneForce عزیز درست میگن، باید دنبال یه همچین چیزی باشی. چون همه که روی سیستمشون آکروبات نصب نیست.
NoneForce شما چند تا کامپوننت معرفی کردی، اونا بدون نیاز به آکروبات کار میکنه؟

[reza_graphic]

فعلا اینو بگیر:
در صورتی کار میکنه که Acrobat reader رو سیستم نصب باشه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دستت درد نکنه آقا آرش:11:
از روش آقا farhad_g1 استفاده می کنم.

[reza_graphic]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اینا تابع های اصلی هست، بقیه رو میتونی بعد از اینکه اسم کامپوننت رو نوشتی یه " . " بزنی و همه توابع رو ببینی

مرسی از راهنمایی هاتون
خود ابزار Acropdf که واسه ActiveX هست دکمه های مختلف و مفیدی برای کار با PDF ها داره.:46:
فقط مشکل من اینکه اگه کاربر اسم فایل رو اشتباه وارد کرد ،Acropdf خطا نمی ده که فایل رو پیدا نکردم و به جاش سیستم هنگ می کنه در نتیجه حتما اسم فایل باید درست وارد بشه که این عیب برنامه منه:19:
من واسه باز کردن فایل PDf دستورهای زیر رو به کار می برم:


var f:String;
begin
f:=ExtractFilePath(Application.ExeName);
f:=f+'\PDF_Files\'+Edit2.Text+'.pdf';
AcroPDF1.src:=f;
end;

می خوام یه دستور چک کردن وجود فایل قبل از باز کردن فایل به کار ببرم تا در صورت وجود فایل اونو فایل رو باز کنه.:21:
دستور یا تابع چک کردن وجود فایل رو می دونی؟؟؟

[F A R H A D]

با FileExists('FileName.ext') میتونی وجود فایل رو چک کنی. اگر قراره کاربر اسم فایل رو وارد کنه چرا از OpenDialog استفاده نمیکنی؟

[reza_graphic]

آخه برنامه طوریه که اسمش رو وارد کنه بهتر و راحت تره. اسم فایل ها رو هم کوتاه انتخاب می کنه مثل a.pdf
اطلاعات مربوط به فایل تو بانک ذخیره میشه

[Arash_XL7710i_207]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این کد فایلی رو که شما آدرسش رو میدید بدنبال برنامه سازگار با اون میگرده و اجراش میکنه برای امتحان میتونید جای فایل delphi_learn.pdf یه فایل Mp3 یا یه تصویری بزارید.

[reza_graphic]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این کد فایلی رو که شما آدرسش رو میدید بدنبال برنامه سازگار با اون میگرده و اجراش میکنه برای امتحان میتونید جای فایل delphi_learn.pdf یه فایل Mp3 یا یه تصویری بزارید.

مرسی آرش جان
دستت درد نکنه
کد با حال و جالبیه

[reza_graphic]

سوال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟
وقتی من تو Acropdf یه فایل PDF باز میکنم و مرور می کنم ، بعد که ادرس فایل دیگه ای رو بهش می دم تا فایل جدید رو باز کنه ، فایل رو می خونه ولی نشونش نمی ده . یعنی وقتی فایل دیگه ای رو می گم بخونه CPU مشغول میشه (اگه فایل بزرگ باشه>20مگ چند ثانیه می کشه) ولی فایل جدید رو به جای فایل قبلی نشون نمیده انگار که فایل رو نخونده. فکر کنم Acropdf باید یه refresh یا update بعد از لود فایل جدید بشه.ولی دستورات زیر هم اینکار رو نمی کنن :
acropdf.refresh
acropdf.update
کسی می تونه منو کمک کنه؟!
یه سوال دیگه : آیا می تونیم توسط دستوراتی یه فایلی رو از یه جای هارد به یه جای دیگه کپی کرد؟(دستور کپی کردن فایل) همچنین دستور پاک کردن فایل؟
کسی این کار رو بلده؟
ممنون میشم از کمکتون:11:

[reza_graphic]

___________

[F A R H A D]

سوال ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟
وقتی من تو Acropdf یه فایل PDF باز میکنم و مرور می کنم ، بعد که ادرس فایل دیگه ای رو بهش می دم تا فایل جدید رو باز کنه ، فایل رو می خونه ولی نشونش نمی ده . یعنی وقتی فایل دیگه ای رو می گم بخونه CPU مشغول میشه (اگه فایل بزرگ باشه>20مگ چند ثانیه می کشه) ولی فایل جدید رو به جای فایل قبلی نشون نمیده انگار که فایل رو نخونده. فکر کنم Acropdf باید یه refresh یا update بعد از لود فایل جدید بشه.ولی دستورات زیر هم اینکار رو نمی کنن :
acropdf.refresh
acropdf.update
کسی می تونه منو کمک کنه؟!
یه سوال دیگه : آیا می تونیم توسط دستوراتی یه فایلی رو از یه جای هارد به یه جای دیگه کپی کرد؟(دستور کپی کردن فایل) همچنین دستور پاک کردن فایل؟
کسی این کار رو بلده؟
ممنون میشم از کمکتون:11:

در مورد سوال اول من تست کردم همچین مشکلی رو نداشت. کدی رو که نوشتی چک کن
برای کپی فایل:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
برای حذف فایل:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این دستورات در help دلفی هم خیلی راحت پیدا میشدن.
موفق باشی

[reza_graphic]

در مورد سوال اول من تست کردم همچین مشکلی رو نداشت. کدی رو که نوشتی چک کن

کدی که من نوشتم برای باز کردن فایل و کارهای مربوطه به این صورته:




procedure Tform1.Button1Click(Sender: TObject);
var f:String;
begin
if Edit2.Text<>'' then
begin
f:=ExtractFilePath(Application.ExeName);
f:=f+'\PDF_Files\'+Edit2.Text+'.pdf';
if FileExists(f) then
begin
form1.Width:=936;
form1.Height:=674;
Button2.Visible:=true;
AcroPDF1.Visible:=true;
AcroPDF1.src:=f;
end
else MessageDlg('File Not Found', mtInformation, [mbOK], 0);
end;


end;

ولی همون مشکل هست.

در مورد دستورات کپی کردن و پاک کردن فایل هم دستت درد نکنه.

[reza_graphic]

راستی false تو تابع زیر کارش چیه؟


CopyFile('source path','destination path',false);

[F A R H A D]

کدی که من نوشتم برای باز کردن فایل و کارهای مربوطه به این صورته:


procedure Tform1.Button1Click(Sender: TObject);
.
.
.
AcroPDF1.src:=f;
end
else MessageDlg('File Not Found', mtInformation, [mbOK], 0);
end;
end;
ولی همون مشکل هست.


به جای قسمتی که قرمز رنگ شده کد زیر رو قرار بده:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


راستی false تو تابع زیر کارش چیه؟


CopyFile('source path','destination path',false);

در قسمت سوم تابع کپی، false,true قرار میگیره و نحوه اجرا رو مشخص میکنه:
true: اگر فایلی همنام با فیلی که در قسمت destination path مشخص شده، وجود داشته باشه کپی انجام نمیشه
false: در صورت وجود فایل همنام در قسمت destination path عمل جایگزینی با فایل جدید انجام میشه

[reza_graphic]

به جای قسمتی که قرمز رنگ شده کد زیر رو قرار بده:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


مرسی فرهاد جان
ولی loadfile هم کار نمی کنه چون acrobat reader من نسخه beta (آزمایشی)هستش واسه همین منم acrobat reader رو پاک کردم یه نسخه دیگه نصب کردم کامپوننت رو هم از نو نصب کردم (شکلش عوض شده بود ).
بعد به جای SRC از loadfile استفاده کردم. حالا درست و حسابی کار میکنه.
این Acrobat reader beta منو سرکار گذاشته بود.
از راهنمایی هاتون هم ممنون. خیلی منو تو پروژه کمک کردی. دستت درد نکنه. این گل هم خدمتتون:11: