bmp изображения в rtf

[Richard22]

Очень нужен исходник программы которая переводит из bmp изображения в rtf , ну или хотябы куски хода

[danekne]

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;

Вот нарыл (код не мой)

[Richard22]

эээ а моно уточнить, как это использовать?

[artemavd]

Попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 function BitmapToRTF(Image1.Picture.Bitmap); //в Image1 рисунок bmp
end;

[Richard22]

Это всё понятно, вы мне объясните где мне взять мой вожделенный rtf фаил?????

[Пепел Феникса]

вам даль функцию, которая переводит битмап в rtf формат(по крайней мере так сказано)
используйте её и сохраните полученную строку в файл.

[Richard22]

Я сейчас заплачу =*(, ну объясните новичку поподробнее как это сделать(((

[Пепел Феникса]

как минимум так.

procedure BitMap2RTFFile(FileName:string;BMP:TBitMap);
var F:TextFile;
begin
 AssignFile(F,FileName);
 Rewrite(F);//очищаем файл
 Write(F,BitmapToRTF(BMP));//эта функция тоже нужна
 CloseFile(F);
end;

надеюсь по именам параметров понятно что куда?

[Richard22]

Всё равно не работает, я когда открываю в Image1 bmp рисунок, потом все махинации делаю у меня получается в rtf файле пусто((

procedure TForm1.Button8Click(Sender: TObject);
var F:TextFile;
FileName:string;
BMP:TBitMap;
begin
FileName:='C:\love.rtf';
BMP:=Image1.Picture.Bitmap;
AssignFile(F,FileName);
Rewrite(F);//очищаем файл
Write(F,BitmapToRTF(BMP));//эта функция тоже нужна
CloseFile(F);
end;

[Richard22]

Блин ну помогите плиззз, что притихли то?