Blob

← →
Doomalka (2003-04-24 15:14) [0]

Доброго времени суток! Подскажите пожалуйста как работать с Blob полями в SQL ? я так понимаю необходимо использовать какие то скрипты....не могбы кто ни-нибудь штонить попонятнее обьяснить чем скрипт отличаеться от обычного SQL и как мне его можно использовать в программе delphi

← →
D (2003-04-24 15:24) [1]

В программе потоки можно исп-ть - TBlobStream

← →
Doomalka (2003-04-24 15:26) [2]

а скриптом как ? как заполнять блобы в скриптах? как мне использовать блоб-курсоры? использую ADO. please.

← →
Johnmen © (2003-04-24 15:30) [3]

ADO и IB ????????????????!!!!!!!!!!!!!
Извращение, однако...:)

← →
Doomalka (2003-04-24 15:31) [4]

2 Johnmen © (24.04.03 15:30)
спасибо что помог

← →
Johnmen © (2003-04-24 15:42) [5]

Лучше книг и доков никто тебе не поможет в главном...:)

← →
Doomalka (2003-04-24 15:47) [6]

2 Johnmen © (24.04.03 15:42) подскажи в этом случае книги и доки, в Embedded SQLGuide я вижу что писать, но я не понимаю где писать если в gpre то мне не это нужно...если делать компиляцию этих скриптов - то это просто использование API. БЕЗ API могу я как нибудь обойтись?

← →
Doomalka (2003-04-24 15:49) [7]

2 Johnmen © (24.04.03 15:42)
а если тебе просто постебаться необходимо - то лучше не надо тратить на это время и место на форуме.
2 модератор
beg your pardon

← →
Johnmen © (2003-04-24 16:01) [8]

http://delphimaster.net/view/3-1051102245/

← →
Doomalka (2003-04-24 16:54) [9]

Query.SQL.Text:=Format("UPDATE Contact SET "MESSAGE" = :Mess WHERE id_contact = ",[IdContact]);
MS:=TMemoryStream.Create;
MS.WriteBuffer(Body,SizeOf(Body));
Query.Parameters.Items[0].LoadFromStream(MS,ftBlob);
Query.ExecSQL;
MS.Free;

гучзусеув end of command

← →
Doomalka (2003-04-24 16:55) [10]

ошибка unexpected end of command
что не так?
Body - Widestring

← →
Соловьев © (2003-04-24 17:01) [11]

> Query.Parameters.Items[0].LoadFromStream(MS,ftBlob);

а есть такое?

← →
Doomalka (2003-04-24 17:02) [12]

чес слово:) даже компилируется:)

> Query.SQL.Text:=Format("UPDATE Contact SET "MESSAGE" = :Mess
> WHERE id_contact = ",[IdContact]);

Query.SQL.Text:="UPDATE Contact SET "MESSAGE" = :Mess WHERE id_contact = :id"; ... > Query.Parameters.Items[0].LoadFromStream(MS,ftBlob); Query.ParamByName("Mess").LoadFromStream(MS,ftBlob); Query.ParamByName("id").AsInteger := 5; ...

← →
Doomalka (2003-04-24 17:22) [14]

как вариант:) тем не менее прошло, сенкс...а как достать в свою очередь этот поток SELECT"ом?
MS:=TMemoryStream.Create;
Query.SQL.Text:=Format("SELECT "MESSAGE" FROM Contact WHERE id_contact = ",[IdContact]);
Query.Open;
Query.SQL.Text:="Select "MESSAGE" FROM Contact WHERE id_contact = :Id";
TBlobField(Query.Fields[0]).SaveToStream(Ms);
MS.ReadBuffer(Body,SizeOf(Body));?
MS.Free;

streem read error.....

← →
Doomalka (2003-04-24 17:23) [15]

понаписал то.....вот так вот:

Query.SQL.Text:=Format("SELECT "MESSAGE" FROM Contact WHERE id_contact = ",[IdContact]);
Query.Open;
TBlobField(Query.Fields[0]).SaveToStream(Ms);
MS.ReadBuffer(Body,SizeOf(Body));?
MS.Free;

← →
Doomalka (2003-04-24 17:57) [16]

please

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