Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2007, 21:24   #31
chekanoff
Пользователь
 
Аватар для chekanoff
 
Регистрация: 13.11.2007
Сообщений: 81
По умолчанию

Большое спасибо за советы! Я это реализовал таким образом:
Код:
procedure TForm1.Button5Click(Sender: TObject);
var
  stm: TStream;//TBlobStream;
  jpg: TJPEGImage;
begin
 SQLDataSet1.CommandText:='select FOTO from rrr where str1='+DBGrid1.Fields[0].Text;
 SQLDataSet1.Active:=true;

stm:=SQLDataSet1.CreateBlobStream(SQLDataSet1.FieldByName('FOTO'), bmRead);
try
jpg := jpeg.TJPEGImage.Create;
try
    jpg.LoadFromStream(stm);
    Image1.Picture.BitMap.Assign(jpg);
finally
    FreeAndNil(jpg)
end;
finally
    stm.Free;
     SQLDataSet1.Active:=false;
end;
end;
Лучшее образование - самообразование (В.Пикуль)
chekanoff вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
mySQL+DELPHI от и до shuhermayer SQL, базы данных 21 20.10.2011 21:22
Связать Mysql c Delphi kiber0net0 Помощь студентам 4 02.09.2008 23:44
Delphi + удаленный MySQL Viteef БД в Delphi 5 30.05.2008 15:27
MySQL и Delphi, проблема... POPOV SQL, базы данных 1 28.12.2007 08:03
MySQL+Delphi Toxa Общие вопросы Delphi 3 23.01.2007 18:24