| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Acces OLE Object and delphi image [D5]
Mamed © (2004-11-05 15:49:00)Kto skajet kak s accesovskoga mdb fayla vitasit bmp fayli s polya tipa OLE Object cherz delphi
sniknik (2004-11-05 17:41:00) [1]а это шутка. я подумал было, что есть описание, что какой байт в префиксе значит.
Mike Kouzmine (2004-11-05 17:28:00) [2]sniknik © (05.11.04 17:10) [10] А что тут расшифровывать? :) Разве не 82?
sniknik (2004-11-05 17:10:00) [3]Mike Kouzmine © (05.11.04 17:09) [8]
что значит? есть расшифровка?
Mike Kouzmine (2004-11-05 17:09:00) [4]1 + 2 + 3 + 76 = 82
sniknik (2004-11-05 17:09:00) [5]записывал/читал в поле разными способами, сравнивал размеры/побайтно картинки в записи.
обычно в общем.
зачем тебе? размер префикса врядли изменится в ближайшем будущем, а его я тебе уже сказал.
Mamed (2004-11-05 16:59:00) [6]togda mojno uznat kak vichislyaete)
Mamed (2004-11-05 16:58:00) [7]togda mojno uznat kak vichislyaete)
sniknik (2004-11-05 16:55:00) [8]незнаю, может где и написано, я сам вычислял.
Mamed (2004-11-05 16:51:00) [9]a gde mojna uznat eti cifri?
sniknik (2004-11-05 16:39:00) [10]размер префикса если bmp добавлен как обьект
читай еще раз [1] > смотря как его туда ложили ...
Mamed (2004-11-05 16:30:00) [11]Osibka snova naverno iz za Stream.Position:= 82
A chto oznachaet 82?
sniknik (2004-11-05 16:05:00) [12]смотря как его туда ложили, если как имедж из дельфей то без выкрутасов подключаеш dbimage и все, если как обьект (например в сам аксес перетащили с проводника в поле и "дропнули" (драг&дроп)) то посложнее, так примерно
procedure TForm1.ADODataSet1AfterScroll(DataSet: TDataSet);
var Stream: TMemoryStream;
begin
Stream:= TMemoryStream.Create;
try
TBLOBField(ADODataSet1.FieldByName('ImField')).SaveToStream(Stream);
if Stream.Size 0 then begin
Stream.Position:= 82; {пропустить префикс обьекта}
Image1.Picture.Bitmap.LoadFromStream(Stream);
end;
finally
Stream.Free;
end;
end;
| |
