Сохранение текста и изображения в *.RTF в Delphi

[Anton147]

Ребята, Привет! Нужна ваша помощь нужно написать такую программу чтобы можно было в файл в *.rtf формате сохранить изображение(из PaintBox или Image) и текст. Какие компоненты нужно при этом использовать и какие библиотеки подключать?

[Anton147]

нашел вот такую функцию которая переводит bmp в rtf формат

function BitmapToRTF(pict: TBitmap): string ;
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\dibitmap0 ' ;
  SetLength(hexpict, (Length(bb) + Length(bi)) * 2 );
  I := 2 ;
  for bis := 1 to Length(bi) do
  begin
    achar := IntToHex(Integer(bi[bis]), 2 );
    hexpict[I - 1] := achar[ 1 ];
    hexpict[I] := achar[ 2 ];
    Inc(I, 2 );
  end ;
  for bbs := 1 to Length(bb) do
  begin
    achar := IntToHex(Integer(bb[bbs]), 2 );
    hexpict[I - 1] := achar[ 1 ];
    hexpict[I] := achar[ 2 ];
    Inc(I, 2);
  end ;
  rtf := rtf + hexpict + ' }}';
  Result := rtf;
end;

Но после сохранения файла rtf он оказывается пустым.

[phomm]

А вызываете то как эту функцию?

[Anton147]

Функция вызывается при сохранении:

procedure TForm1.Button3Click(Sender: TObject);
var f:TextFile;
begin
SaveDialog1.FilterIndex:=1;
SaveDialog1.FileName:='';
if SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Write(F,BitmapToRTF(Image1.Picture.Bitmap));
CloseFile(f);
Form1.Memo2.SelText:=BitmapToRTF(Image1.Picture.Bitmap);
end;
end;

[phomm]

Откройте получаемый файл программой Wordpad.exe (стандартная в виндовс) Всё записывается нормально. Ворд почему-то не показывает, да.. Надо копать сам ворд... ибо сохранив в вордпаде сам файл (ничего не меняя просто открыв и сохранив, можно в этот же а можно и в другой файл) - ворд начинает читать.
Моё предложение - сравнивать Вам эти 2 файла и восполнить различия в функции. Тогда ворд начнет читать то, что Вы прогой сгенерите.

[Anton147]

Так и есть в WordPade сохраняю и все нормально и в ворде видит. Спасибо дальше думаю разберусь