تبدیل فایل word به عکس [بایگانی]

free

سه شنبه 21 شهریور 1385, 10:43 صبح

سلام
آیا امکان داره یه فایله ورد را با دلفی به عکس یعنی فایل با پسوند jpg تبدیل کرد؟ چگونه؟

Touska

سه شنبه 21 شهریور 1385, 10:47 صبح

یک راه میتونید اینکه از Driver های Microsoft استفاده کنید و راه خیلی جالب و ساده :

procedure RichEditToCanvas(RichEdit: TRxRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);
var
ImageCanvas: TCanvas;
fmt: TFormatRange;
begin
ImageCanvas := Canvas;
with fmt do
begin
hdc:= ImageCanvas.Handle;
hdcTarget:= hdc;
rc:= Rect(0, 0,
ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch,
ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch
);
rcPage:= rc;
chrg.cpMin := 0;
chrg.cpMax := RichEdit.GetTextLen;
// ShowMessage(IntToStr(RichEdit.GetTextLen));
end;
SetBkMode(ImageCanvas.Handle, TRANSPARENT);
RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));
RichEdit.Perform(EM_FORMATRANGE, 0, 0);
end;

و راه مطمئنی نیست :)

free

سه شنبه 21 شهریور 1385, 10:56 صبح

ممنون اما نمی دانم این کد را باید چطور و کجا استفاده کنم. اگه ممکنه بیشتر راهنمایی نمایید.

Touska

سه شنبه 21 شهریور 1385, 13:29 عصر

ممنون اما نمی دانم این کد را باید چطور و کجا استفاده کنم. اگه ممکنه بیشتر راهنمایی نمایید.

با استفاده از Procedure می توانید محتوای یک Richedit رو به عکس تبدیل کنید. یا اینکه از پرینتر

مجازی خود مایکروسافت استفاده کنید.

pad_kay

دوشنبه 05 فروردین 1387, 13:28 عصر

یک راه میتونید اینکه از Driver های Microsoft استفاده کنید و راه خیلی جالب و ساده :

procedure RichEditToCanvas(RichEdit: TRxRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);
var
ImageCanvas: TCanvas;
fmt: TFormatRange;
begin
ImageCanvas := Canvas;
with fmt do
begin
hdc:= ImageCanvas.Handle;
hdcTarget:= hdc;
rc:= Rect(0, 0,
ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch,
ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch
);
rcPage:= rc;
chrg.cpMin := 0;
chrg.cpMax := RichEdit.GetTextLen;
// ShowMessage(IntToStr(RichEdit.GetTextLen));
end;
SetBkMode(ImageCanvas.Handle, TRANSPARENT);
RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));
RichEdit.Perform(EM_FORMATRANGE, 0, 0);
end;

و راه مطمئنی نیست :)

دوست عزیز در سور شما از دو متغییر استفاده شده که نمی دونم چیه اگر لطف کنید و من را راهنمایی کنید کمال تشکر را دارم به عنوان مثال TRxRichEdi

Cave_Man

دوشنبه 05 فروردین 1387, 14:55 عصر

اون یه کامپوننت غیر معمول هست
اون کلاس باید تبدیل به کلاس TRichEdit بشه
http://www.delphipages.com/news/detaildocs.cfm?ID=64
این مقاله دقیقا کاری ر که میخاید انجام میده
لازم به ذکره که بادی یونیت RichEdit رو هم به یونیت برنامتون اضافه کنید تا اون متغیر ها و کلاس ها شناخته بشن.