تغییر رزولوشن و BPS با KDImage Editor

[nasr]

سلام

چطور می شه رزولوشن و BPS را که KDTele برای ارسال فاکس به اونها حساس است را با KDImage Editor تغییر داد؟

ممنون

[Touska]

به این شکل عمل نمایید :


KDImage1.PictureChangeRes(200,200);
KDImage1.PictureResize(1728,KDImage1.PictureHeight ,True);
KDImage1.ConvertColorCount(ccBlackWhite);

KDImage1.FileSave('C:\test.tif',ptTIFF);

موفق باشید :)

[nasr]

ضمن تشکر
می خواستم ببینم:
چطور می تونم بدون اینکه FastReport نمایش داده بشه فایل Tiff را بسازه

من د رویداد OnEndDoc در Frreport این کد را نوشته ام


frReport1.ExportTo(frTIFFExport1,'C:\FR\test.tif') ;

ولی خوب اینطوری Preview هم نمایش داده میشه که می خوام اینطور نباشه و بدون نمایش Preview این کار انجام بشه
ممنون

[Touska]

این است قدرت Fast Report :))


// frReport1.ShowReport;
frReport1.PrepareReport;
frTIFFExport1.ShowDialog := False;
frTIFFExport1.Quality := 90;
frReport1.ExportTo(frTIFFExport1,'Test.tif');


موفق باشید :)

[nasr]

واقعا تشکر

و اما فکر می کنم آخرین مشکل من برای ارسال فاکس:

من یه Rich گذاشتم در داخل FastReport که می خوام کاربر هنگامیکه می خواد فاکس ارسال کنه یک فایل Word یا RTF در درایو C درست کنه و این اطلاعات Load بشه در Rich1

حالا با این چند خط برنامه وقتی اطلاعات را Load میکنه یک سری کاراکترهای نامفهوم نمایش میده


var
v : TfrView;
P : TfrPage;
begin
p := frReport3.Pages[0];
v := P.FindObject('Rich1');
v.Memo.LoadFromFile('C:\Test.Rtf');
frReport3.ShowReport;




ممنون میشم این یکی را هم راهنمایی کنید

[Touska]

بیا عزیزم :


Uses FR_Rich;

Var
P : TfrPage;
M : TfrView;
begin
P := frReport1.Pages[0];
M := frReport1.FindObject('Rich1');
TfrRichView(M).RichEdit.Lines.LoadFromFile('C:\A.r tf');
frReport1.ShowReport;


موفق باشید :)

[delphi5]

به این شکل عمل نمایید :


KDImage1.PictureChangeRes(200,200);
KDImage1.PictureResize(1728,KDImage1.PictureHeight ,True);
KDImage1.ConvertColorCount(ccBlackWhite);

KDImage1.FileSave('C:\test.tif',ptTIFF);

موفق باشید :)


اگر فایل tif چند صفحه ای داشته باشم ،
1- چطور همه صفحات رو در Kdimage بارگذاری کنم
2- این تغییرات در همه اون (همه صفحات) فایل اعمال میشه ؟

[Touska]

اونو تست نکردم ولی فکر کنم فرقی نداشته باشه یا اینکه حداکثر هر صفحه یک Index داره که با

یک حلقه For میشه رو همه تغییرات اعمال نمایید.

موفق باشید :)