Конвертирование графических форматов файлов

[yulia]

нет, именно rtf..... я вообще не очень понимаю идею преобразования bmp в rtf, но надо так надо.. или rtf изображения также бывают?

[yulia]

у меня получилась вот такая процедура
procedure TForm1.Button3Click(Sender: TObject);
var
bm:TBitmap;
IconInfo:TIconInfo;
Icon:TIcon;
begin
if OpenDialog1.Execute then
begin
bm:=TBitmap.Create;
bm.LoadFromFile(OpenDialog1.FileNam e);
end;
Icon:=TIcon.Create;
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=bm.Handle;
IconInfo.hbmColor:=bm.Handle;
Icon.Handle:=CreateIconIndirect(Ico nInfo);
bm.Free;
Icon.SaveToFile('myicon.ico');
Icon.Free;
end;

все работает, только иконки получаются размером рисунка.... а как их сделать 32*32?

[mutabor]

или rtf изображения также бывают?

Не встречал таких. Тебе нужен текст, та функция что ты приводила как раз это и делает. Тебе остается полученную строку сохранить как RTF.
Не думаю что от тебя требуют знания структуры формата, в Дельфи должна быть функция сохранение в этот формат, также как и с иконкой и битмапом. Если не найдешь, можно схитрить, сохрани обычный текстовый файл, но с расширением .rtf, будет открываться не хуже )

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

Сделай как положено, вынеси в отдельную процедуру, я образец давал на той странице. Размер задай явно 32х32, а так он у тебя из размеров битмапа берется. Нужно будет только определиться какую часть рисунка уменьшить в эти 32х32.
Самый простой вариант - создай дополнительно маленький битмап 32х32, перенеси в него картинку методом канвы StretchDraw из большого, а дальше точно также как и делала, только иконку делай из маленького, теперь размер будет как нужно.

[yulia]

ну у меня тоже была идея сохранять как текстовый файл обычный )))

Значит с этим разобрались.. спасибо )))

[yulia]

тут прикол такой
пишу в файл
newfile:=bmp2rtf(bm);
assignFile(MyFile,ChangeFileExt(Ope nDialog1.FileName,'.rtf'));
rewrite(MyFile);
write(MyFile,newfile);
closefile(MyFile);

В итоге файл создается, весит 2 метра, а открываю - он пустой...

Проверяла переменную newfile - она содержит инфу, все нормально.

И, кстати, он нормально открывается через WordPad и там карттинка... А вот ворд не хочет..... почему интересно?

[mutabor]

Ах вон оно что, картинка в документе rtf. Теперь понятно что имелось ввиду под конвертированием в rtf.

А вот ворд не хочет..... почему интересно?

Формат не понимает. Видимо не совсем правильно строка формируется.

Если хочешь чтобы в Ворде открывался, создай маленькую бмп картинку в Пэинте, 50х50 пикселей. Залей ее одним цветом, и в Ворде вставь ее в пустой документ и сохрани в rtf. Полученый rtf файл прикрепи сюда к сообщению. Я посмотрю заголовок, у меня просто Ворда сейчас нет, а другие программы все по разному сохраняют. И сделай тоже самое своей программой из того же bmp файла, и полученый rtf тоже залей, назови их только по разному, чтобы понятно было где какой.

[yulia]

Я кажется поняла почему ворд его не хочет.... rtf формат старые ворды вообще в принципе не открывают... А у меня как раз старый стоит....

[yulia]

var
bm:TBitmap;
jpgImg: TJPEGImage;
MyFormat : Word;
AData:cardinal;
APalette : hPalette;
begin
if OpenDialog1.Execute then
begin
bm:=TBitmap.Create;
bm.LoadFromFile(OpenDialog1.FileNam e);
end;
bm.SaveToClipBoardFormat(MyFormat,A Data,APalette);
Image1.Picture.Bitmap.LoadFromClipb oardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
jpgImg := TJPEGImage.Create;
jpgImg.Assign(Image1.Picture.Bitmap );
jpgImg.SaveToFile(ChangeFileExt(Ope nDialog1.FileName,'.jpg'));
bm.Free;
end;

Оно тут пишет Unsupported ClipBoard format
Что с этим делать?

[yulia]

И еще.. Как можно rtf-файл сконвертировать в bmp?

[mutabor]

Ну и наворочено )

Держи:

  
uses Jpeg;

if SaveDialog1.Execute then
  begin
    savebm:=tbitmap.Create;
    savebm.LoadFromFile(...);
    jp := TJPEGImage.Create;
    jp.CompressionQuality:=q; //q = 0 - 100
    jp.Assign(savebm);
    jp.SaveToFile(savedialog1.FileName);
    savebm.Free;
    jp.Free;
  end;