Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Прочитать BlobStream при помощи TADOQuery из базы Access

Автор: http://www.swissdelphicenter.ch

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;
           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011