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(...);

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