Mega Code Archive

 

Categories / Delphi / ADO Database

 

Accessten tadoquery ile blobstream okuma işlemi

function BlobStreamOku(Query: TADOQuery): TMemoryStream; begin result := TMemoryStream.Create; // Önce AccessDB ye bağlan. // Örnek: Query.Connection, TADOConection veya Query.ConnectString // SQL komutu gönder Query.Active := False; Query.SQL.Clear; // data : ilgili kayıt satırı and email : table adı Query.SQL.Append('SELECT data FROM email WHERE id=1'); Query.Active := True; Result.LoadFromStream(Query.CreateBlobStream(Query.FieldByName('Data'), bmRead)); end;