Скачать: CL | DM;

How get data from BLOB Fields?   Найти похожие ветки 

← →
Ru ©   (2003-09-24 11:07) [0]

http://deep.webm.ru/forum/reply.php?num=1.2&id=8970&from=97

---

← →
Ru ©   (2003-09-25 12:24) [1]

Использую InterBase 6х + IBX.
Есть процедура:
procedure SomeProc;
var
MStream1,MStream2:TMemoryStream;
begin
MStream1:=TMemoryStream.Create;
MStream2:=TMemoryStream.Create;

EditFrame1.Edit.Lines.SaveToStream(MStream1);
EditFrame2.Edit.Lines.SaveToStream(MStream2);

with Data.Query do begin
Close;
SQL.Clear;
SQL.Add("INSERT INTO SomeTBL (SomeF1, SomeF2)");
sql.Add("VALUES (:SomeF1, :SomeF2)");
Params[0].LoadFromStream(MStream1, ftBlob);
Params[1].LoadFromStream(MStream2, ftBlob);
ExecSQL;
end;

MStream1.Free;
MStream2.Free;
end;

Это все прекрасно, а как осуществить обратную процедуру (то есть сохранение из базы в поток) до меня не доходит.

---

← →
kaif ©   (2003-09-25 12:37) [2]

var
st: TStream;

begin
with Data.Query do begin
SQL.Text := "SELECT * FROM SomeTBL";
Open;
st := CreateBlobStream(FieldByName("SomeF1"), bmRead);
try
EditFrame1.Edit.Lines.LoadFromStream(st);
finally
st.Free;
end;
end;
end

---

← →
Delirium ©   (2003-09-25 12:44) [3]

Или попросту...

TBlobField(Query.FieldByName("Some")).SaveToStream(...);


---

← →
Ru ©   (2003-09-25 13:16) [4]

kaif © (25.09.03 12:37) [2]
Delirium © (25.09.03 12:44) [3]

спасибі :)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c