RTF > Jpg

[prizrak1390]

Доброе время суток)
Как сконвертировать RTF или TXT файл в JPG картинку?

[goblinyara]

хмм... как вариант - грузите TXT в ListBox, с помощью Canvas.Pixels[x,y] перерисовывайте на Image, и его сохраняйте в файл.... как с RTF - не знаю

[Kotofff]

Как сконвертировать RTF или TXT файл в JPG картинку?

использовать RichView компонент версии 10 и выше ...
там в дистрибутиве есть пример по Вашему вопросу ...

[BOBAH13]

Сообщение от goblinyara

хмм... как вариант - грузите TXT в ListBox, с помощью Canvas.Pixels[x,y] перерисовывайте на Image, и его сохраняйте в файл.... как с RTF - не знаю

О чем вы собственно не понятно вообще

RTF - это будет всего лишь текст, и данные битмапа можно будет просто перевести в последовательность - хекс строку. Как jpg в битмап перевести уже обсуждалось. Просто если искать уже в известных источниках то чего только можно найти

uses
   RichEdit;

 // Stream Callback function 
type
   TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte;
     cb: Longint; var pcb: Longint): DWORD;
   stdcall;

   TEditStream = record
     dwCookie: Longint;
     dwError: Longint;
     pfnCallback: TEditStreamCallBack;
   end;

 // RichEdit Type 
type
   TMyRichEdit = TRxRichEdit;

 // EditStreamInCallback callback function 
function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
   cb: Longint; var pcb: Longint): DWORD; stdcall;
   // by P. Below 
var
   theStream: TStream;
   dataAvail: LongInt;
 begin
   theStream := TStream(dwCookie);
   with theStream do
   begin
     dataAvail := Size - Position;
     Result := 0;
     if dataAvail <= cb then
     begin
       pcb := read(pbBuff^, dataAvail);
       if pcb <> dataAvail then
         Result := UINT(E_FAIL);
     end
     else
     begin
       pcb := read(pbBuff^, cb);
       if pcb <> cb then
         Result := UINT(E_FAIL);
     end;
   end;
 end;

 // Insert Stream into RichEdit 
procedure PutRTFSelection(RichEdit: TMyRichEdit; SourceStream: TStream);
   // by P. Below 
var
   EditStream: TEditStream;
 begin
   with EditStream do
   begin
     dwCookie := Longint(SourceStream);
     dwError := 0;
     pfnCallback := EditStreamInCallBack;
   end;
   RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));
 end;

 // Convert Bitmap to RTF Code 
function BitmapToRTF(pict: TBitmap): string;
 // by D3k 
var
   bi, bb, rtf: string;
   bis, bbs: Cardinal;
   achar: ShortString;
   hexpict: string;
   I: Integer;
 begin
   GetDIBSizes(pict.Handle, bis, bbs);
   SetLength(bi, bis);
   SetLength(bb, bbs);
   GetDIB(pict.Handle, pict.Palette, PChar(bi)^, PChar(bb)^);
   rtf := '{\rtf1 {\pict\dibitmap ';
   SetLength(hexpict, (Length(bb) + Length(bi)) * 2);
   I := 2;
   for bis := 1 to Length(bi) do
   begin
     achar := Format('%x', [Integer(bi[bis])]);
     if Length(achar) = 1 then
       achar := '0' + achar;
     hexpict[I - 1] := achar[1];
     hexpict[I] := achar[2];
     Inc(I, 2);
   end;
   for bbs := 1 to Length(bb) do
   begin
     achar := Format('%x', [Integer(bb[bbs])]);
     if Length(achar) = 1 then
       achar := '0' + achar;
     hexpict[I - 1] := achar[1];
     hexpict[I] := achar[2];
     Inc(I, 2);
   end;
   rtf := rtf + hexpict + ' }}';
   Result := rtf;
 end;


 // Example to insert image from Image1 into RxRichEdit1 
procedure TForm1.Button1Click(Sender: TObject);
 var
   SS: TStringStream;
   BMP: TBitmap;
 begin
   BMP := TBitmap.Create;
   BMP := Image1.Picture.Bitmap;
   SS  := TStringStream.Create(BitmapToRTF(BMP));
   try
     PutRTFSelection(RxRichEdit1, SS);
   finally
     SS.Free;
   end;
 end;

Собственно можно предположить, что после вставки сохранить его как текст в файл, или же даже не использовать TRichEdit а просто открыть файл RTF найти место куда записать данные картинки и просто вставить текст форматированный.

[goblinyara]

Сообщение от BOBAH13

О чем вы собственно не понятно вообще

хмм... просто как мне показалось - автору топика нужно сделать из текста картинку но вы, видно, не так поняли ну что ж, будем ждать реакции автора и поймём, кто из нас правильней его понял

[DeKot]

RTF - это будет всего лишь текст

- все верно.Далее
любой текст можно представить в графическом формате командой TextOut , придав ему нужные свойства FontColor,FontSize и т.п.Вводим текст в любой компонент графики (скажем в TBitMap) командой TextOut а потом записываем в графический файл.Таким образом решить задачу можно стандартными средствами Delphi .

[prizrak1390]

=))) Расскажу,что я делаю вообще....
Вообщем мне нужно текст из richedit сохранить в картинку. Способ которым делаю я не подходит,так как я копирую только видимую область этого компонента...

image.Canvas.CopyRect(form1.richedit1.ClientRect,form1.Canvas,form1.richedit1.ClientRect);

Метод убогий и как видно не совсем рабочий.Если текст не вмещается весь,то прога без смысла %)