Stream Kaydetme

[ssteeltr]

Merhaba Arkadaşlar ben Tmsgrid kullanıyorum

Gridin SaveToStream() fonksiyonu ile gridin o anki özelliklerini (sütun satır sayısı genişliği vs.)bir streame kaydediyorum bunuda Firebird veritaabnında bir alana kaydetmek istiyorum ama yapamadım.

Blob alanı denedim
q.params[0].AsBlob:=?mystream

blob alanla stream uyuşmuyor.

ba konuda açil yardımlarınızı bekliyorum

Saygılarımla.

[fduman]

Query parametrelerine stream geçemezsin.

Kaydetmek istediğin kayde gelip (veya insert ile yeni kayıt açıp)

Q.FieldByName('StreamAlani').LoadFromStream(MyStream)

Q.Post;

Yapabilir veya BlobStream kullanabilirsin.

[ssteeltr]

coderlord hocam şimdide veritabanından geri yüklerken nasıl yükleyeceğiz
bide stream alan olarak neyi seçmem gerek firebird kullanıyom.

saygılar

[ssteeltr]

arkadaşlar lütfen yardımediiiiiin
veritabanına eklemeyi başardım ama şimdide veritabanından gride nasıl yükleyecem

grid.loadfromstream(quary.fields[0].????);

şimdi ben databese deki alanı bu gridin loadfromstream komutuna nasıl yüklerim

lütfen yardım edin son noktadayım ama noktayı bitürlü koyamadım

Saygılar.

[undefined]

Kod: Tümünü seç

Q.FieldByName('BlobAlan').SaveToStream(mystrem);
grid.loadfromstream(mystream);

[fduman]

bide stream alan olarak neyi seçmem gerek firebird kullanıyom.

Firebird'de stream'leri BLOB bir alan yaratıp onun içinde tutabilirsin. Diğer soruna cevabı undefined vermiş zaten.

[ssteeltr]

arkadaşlar çooook teşekkür ederim işime inanılmaz yaradı.
bu forumu oluşturan ve katılan arkadaşların tümünden Allah razı olsun.

Saygılar.

[ssteeltr]

arkadaşlar kodu denemeden teşekkür ettim çalışacağını sanmıştım amma

Kod: Tümünü seç

Quary1.FieldByName('Alanadı').[b]SaveToStream[/b] diye bir komut yok

ben ibo bileşenleri ve firebird kullanıyom.

Durum Yeniden karıştı önerilerinizi bekliyom.

Saygılar.

[fduman]

BlobStream kullanacaksın o halde. IBO help dosyasında arat. Örneği vardır.

[ssteeltr]

hocam bi küçük örnek yazamasmısınız ibo help inden bişey çıkmadı

yani blob alanı stream değişkene nasıl aktaracam?

[ssteeltr]

Arkadaşlar cevabı buldum faydalı olur diye örnek kodları yolluyom

read a BlobStream with TADOQuery from an AccessDB?

Kod: Tümünü seç

function GetBlobStream(Query: TADOQuery): TMemoryStream;
begin
  result := TMemoryStream.Create;

  // You must connect to AccessDB first.
  // See: Query.Connection, TADOConection or Query.ConnectString

  // Send SQL command
  Query.Active := False;
  Query.SQL.Clear;
  // data is my row and email the table
  Query.SQL.Append('SELECT data FROM email WHERE id=1');
  Query.Active := True;

  Result.LoadFromStream(Query.CreateBlobStream(Query.FieldByName('Data'), bmRead));
end;

load a jpeg file into a blob field using SQL?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var 
ms: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(OpenPictureDialog1.FileName);
with Query1 do
begin
with SQL do 
begin
Clear;
Add('INSERT INTO "ImageTbl.db" (ImageFld)');
Add('VALUES (:param0 )');
end;
Query1.ParamByName('param0').SetBlobData(ms.Memory, ms.Size);
ExecSQL;
end;
finally
ms.Free;
end;
end;
end;

umarım faydalı olur.

Saygılar.[/b]

[fduman]

Çok güzel..