Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

Jpeg и Blob поля   Найти похожие ветки 

 
AliceSpain   (2004-12-22 05:20) [0]

Необходимо просматривать в программе поля из БД, а там jpg  как? И я так понимаю в <L может содержаться и весь файл так и ссылка на него, а если ссылка то как с ним работать?


 
Александр Иванов ©   (2004-12-22 09:33) [1]

Вопрос в том как определить содержимое поля, или как работать с файлами, зная их полные имена?


 
Stanislav ©   (2004-12-22 16:53) [2]

Function ShowJPG (Field:TBlobField;var Image:TImage):Integer;
VAR S:TMemoryStream;J:TJPEGImage;
begin
Result:=0;
If not Field.DataSet.Active or Field.IsNull then
begin
Image.Canvas.Brush.Color:=clBtnFace;
Image.Canvas.FloodFill(0,0,clWhite,fsSurface);
patBlt (Image.Canvas.Handle ,0,0,Image.Picture.Width,Image.Picture.Height,PATCOPY);
end
else
begin
S:=TmemoryStream.Create;
J:=TJpegImage.Create;
S.Position:=0;
Field.SaveToStream(S);
S.Position:=0;
J.LoadFromStream(S);
Image.Picture.Bitmap.Assign(J);
Result:=S.Size;
J.Free;
S.Free;
end;
end;


 
AliceSpain   (2004-12-24 01:29) [3]

Спасибо Stanislav. Только возникла еще одна проблема, если я пишу в БД а потом считываю то все хорошо, но... у меня в БД уже есть картинки которые туда вставили прямо в Access, вот их я прочитать немогу, они в пакетах. Можно что нибудь с этим сделать?



Страницы: 1 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
3-1103872708
Mid
2004-12-24 10:18
2005.01.30
Проблема с кирилицей в QReport


4-1102700725
zioza
2004-12-10 20:45
2005.01.30
Сменить раскладку клавиатуры, другому активному окну


3-1103794984
YuRock
2004-12-23 12:43
2005.01.30
Странная работа функций в Oracle


6-1099919063
syte_ser78
2004-11-08 16:04
2005.01.30
Мониторинг доступа к расшареной папке


1-1105970941
Nad89
2005-01-17 17:09
2005.01.30
Поченму не читает из фала типа TStrings