Image SQL2000

← →
312kbps (2006-11-07 10:24) [0]

Подскажите как записать картинку TBitmap в MS SQL2000 и как её от туда прочитать ?

← →
evvcom © (2006-11-07 10:30) [1]

Так в MS SQL или MySQL?
А что BLOB-ов там не нашел?

← →
312kbps (2006-11-07 10:34) [2]

В MS SQL !

там записывается в виде шестнацатиричной системе, как получить из TBitmap это 16ричный код ?
и как получив из MS SQL этот код , преоброзовать его в картинку ?

← →
Stanislav © (2006-11-07 10:44) [3]

TBlobField (AdoDataset.fieldbyName(myBlobField)).LoadFromStream()
TBlobField (AdoDataset.fieldbyName(myBlobField)).SaveToStream()

Если не понятно опубликую потробнее

А 16 ричный код это адрес, по которому хранится твои данные.

← →
312kbps (2006-11-07 10:55) [4]

я не понимаю кк мне осуществить запись в MS SQL
тип поля BMP в MSSQL image.
CommandText:="Update tabBMP set BMP="+ ????

← →
Anatoly Podgoretsky © (2006-11-07 10:56) [5]

> 312kbps (07.11.2006 10:34:02) [2]

> как получив из MS SQL этот код

IntToHex в цикле

← →
312kbps (2006-11-07 11:18) [6]

Можно по подробнее ?
Имею картинку TBitmap и таблицу с полем BMP, как туда записать эту картинку ?

← →
Stanislav © (2006-11-07 11:20) [7]

Примерно так:

var S:TMemoryStream;
begin
...
S:=TMemoryStream.create;
BMP.savetostream (S);
S.position:=0;
Command.CommandText:="Update tabBMP set BMP= :par"
Command.Parameters[0].loadfromstream(S,ftBlob)
Command.execute
...
S.free;
end;

← →
312kbps (2006-11-07 11:24) [8]

Спасибо !!!

← →
312kbps (2006-11-07 12:04) [9]

Станислав, если не затруднит, покажи пожалуйста, как получить эту картинку из MSSQL и засунуть в Timage ?

← →
312kbps (2006-11-07 12:09) [10]

Всем спасибо ! Все получилось )))
var BLOB: TStream;
begin
BLOB := Dataset.CreateBlobStream(Dataset.FieldByName("bmp"),bmRead);
Image.Picture.Graphic:=TBitmap.Create;
Image.Picture.Graphic.LoadFromStream(BLOB);
BLOB.Free;
end;

Image SQL2000 Найти похожие ветки