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

[reza_graphic]

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

[reza_graphic]

___________

[F A R H A D]

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

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

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

برای حذف فایل:

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

این دستورات در 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 منو سرکار گذاشته بود.
از راهنمایی هاتون هم ممنون. خیلی منو تو پروژه کمک کردی. دستت درد نکنه. این گل هم خدمتتون