دستت درد نکنه.نقل قول:
یه دنیا لطف می کنی:11:
Printable View
دستت درد نکنه.نقل قول:
یه دنیا لطف می کنی:11:
فعلا اینو بگیر:
در صورتی کار میکنه که Acrobat reader رو سیستم نصب باشه:
کد:ShellExecute(Handle,'Open','D:\delphi_amoozesh.pdf',nil,nil,SW_SHOW);
سلام
يك سوال، اگر طرف روي دستگاه اكروبات نصب نكرده باشه تكليف چيه؟
نقل قول:اینا تابع های اصلی هست، بقیه رو میتونی بعد از اینکه اسم کامپوننت رو نوشتی یه " . " بزنی و همه توابع رو ببینیکد:
pdf1.gotoFirstPage;
pdf1.gotoLastPage;
pdf1.gotoNextPage;
pdf1.gotoPreviousPage;
pdf1.Print;
pdf1.setZoom(100);
NoneForce عزیز درست میگن، باید دنبال یه همچین چیزی باشی. چون همه که روی سیستمشون آکروبات نصب نیست.نقل قول:
NoneForce شما چند تا کامپوننت معرفی کردی، اونا بدون نیاز به آکروبات کار میکنه؟
دستت درد نکنه آقا آرش:11:نقل قول:
از روش آقا farhad_g1 استفاده می کنم.
مرسی از راهنمایی هاتوننقل قول:
خود ابزار Acropdf که واسه ActiveX هست دکمه های مختلف و مفیدی برای کار با PDF ها داره.:46:
فقط مشکل من اینکه اگه کاربر اسم فایل رو اشتباه وارد کرد ،Acropdf خطا نمی ده که فایل رو پیدا نکردم و به جاش سیستم هنگ می کنه در نتیجه حتما اسم فایل باید درست وارد بشه که این عیب برنامه منه:19:
من واسه باز کردن فایل PDf دستورهای زیر رو به کار می برم:
می خوام یه دستور چک کردن وجود فایل قبل از باز کردن فایل به کار ببرم تا در صورت وجود فایل اونو فایل رو باز کنه.:21:
var f:String;
begin
f:=ExtractFilePath(Application.ExeName);
f:=f+'\PDF_Files\'+Edit2.Text+'.pdf';
AcroPDF1.src:=f;
end;
دستور یا تابع چک کردن وجود فایل رو می دونی؟؟؟
با FileExists('FileName.ext') میتونی وجود فایل رو چک کنی. اگر قراره کاربر اسم فایل رو وارد کنه چرا از OpenDialog استفاده نمیکنی؟
آخه برنامه طوریه که اسمش رو وارد کنه بهتر و راحت تره. اسم فایل ها رو هم کوتاه انتخاب می کنه مثل a.pdf
اطلاعات مربوط به فایل تو بانک ذخیره میشه
این کد فایلی رو که شما آدرسش رو میدید بدنبال برنامه سازگار با اون میگرده و اجراش میکنه برای امتحان میتونید جای فایل delphi_learn.pdf یه فایل Mp3 یا یه تصویری بزارید.کد:uses
Shellapi;
function StartAssociatedExe(FileName: string; var ErrorCode:
Cardinal): Boolean;
var
Prg: string;
ProcessInfo: TProcessInformation;
StartupInfo: TStartupInfo;
begin
SetLength(Prg, MAX_PATH);
Result := False;
ErrorCode := FindExecutable(PChar(FileName), nil,
PChar(Prg));
if ErrorCode >= 32 then
begin
SetLength(Prg, StrLen(PChar(Prg)));
FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
with StartupInfo do
begin
cb := SizeOf(TStartupInfo);
wShowWindow := SW_SHOW;
end;
if CreateProcess(PChar(Prg), PChar(Format('%s %s', [Prg, FileName])),
nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil,
StartupInfo, ProcessInfo) then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, ErrorCode);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
Result := True;
end
else
ErrorCode := GetLastError;
end;
end;
--------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
ErrorCode: Cardinal;
begin
StartAssociatedExe('c:\delphi_learn.pdf', ErrorCode);
end;
مرسی آرش جاننقل قول:
دستت درد نکنه
کد با حال و جالبیه