Обращение к BLOB полю

[Bayazet]

я использую TTable, в таблице имеется BLOB-поле. так же мной написаны 2 функции:
function ShapeToBlob(shape : TShp) : PChar;
function BlobToShape(P : PChar) : TShp;

как мне, используя TTable получить данные из blob поля?

[Stilet]

А что там храниться будет?

[mihali4]

Чтение и запись BLOB-файла в БД

Вставка файла в поле базы данных

if OpenDialog1.Execute then
begin
ADOQuery1.Insert;
tblobfield(form1.ADOQuery1.FieldByName('MyBlob')).LoadFromFile(OpenDialog1.FileName);
ADOQuery1.Post;
end;

Чтение файла из Базы Данных

var
ptkwrd:Tmemorystream;
begin
ptkwrd:= Tmemorystream.Create;
tblobfield(form1.ADOQuery1.FieldByName('MyBlob')).SaveToStream(ptkwrd);
ptkwrd.Position:=0;
ptkwrd.SaveToFile('temp.doc');
shellexecute(Handle, 'open','temp.dwg',nil,nil,SW_SHOWNORMAL);
ptkwrd.Free;

Вариант записи файла в БД с использованием SQL запроса

form1.ADOQuery1.SQL.Text:='insert into AutoCad_Baza (datenow,street,house,part,fio,description,zip_file) values ('''+formatDateTime('yyyy/mm/dd',Now)+''','''+st+''','''+trim(edit3.Text)+''','''+trim(edit4.Text)+''','''+fio+''','''+trim(memo1.Text)+''', :zip_file)';
form1.ADOQuery1.Parameters.ParseSQL(form1.ADOQuery1.sql.text, true);
form1.ADOQuery1.Parameters.ParamByName('zip_file').LoadFromFile(edit1.Text, ftGraphic);
form1.ADOQuery1.ExecSQL;

[Bayazet]

mihali4, спасибо!