картинка из TGraphicField

← →
Миша © (2002-12-09 01:39) [0]

Подскажите, пожалуйста, как сохранить картинку из TGraphicField на диск (если сохранить методом SaveToFile, то получившийся файл имеет нечитаемый вьюерами формат). Таблица paradox, если это имеет значение.

← →
passm © (2002-12-09 11:29) [1]

Попробуй по схеме:
procedure...
var
P: TPicture;
s: TBlobStream;
begin
P:= TPicture.Create;
s:= TBlobStream.Create(BLOBField, bwRead);
try { На всякий случай }
P.BitMap.LoadFromStream(s);
P.SaveToFile("aaa.bmp")
finally
s.Free;
P.Free
end
end;

← →
Миша © (2002-12-09 19:42) [2]

При загрузке потока в BitMap возникает исключение "неподходящий тип image"a".

Спасибо за совет
я сам разобрался - при сохранении методом SaveToFile в начало файла до сигнатуры BM записывается 6 "лишних" байт.

картинка из TGraphicField Найти похожие ветки