| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Рисунок из БД в TImage [D5, MSSQL]
KirillRepin © (2008-09-15 09:30:00)Возникает проблема, при загрузки рисунка из БД в TImage загружается только черный фон и больше ничего. Что делать?
Загрузка в БД:
Query1.SQL.Clear;
Query1.SQL.Text := 'exec Proc_AddImage @im=:im';
Query1.ParamByName('im').LoadFromFile('C:\1.bmp', ftBlob);
Query1.ExecSQL;
загрузка рисунка из БД в TImage:
var
s:TMemoryStream;
begin
s:=TMemoryStream.Create;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := 'SELECT Pic_Name, Pic FROM Tab_Pictures WHERE Id_Pictures = 4';
Query1.Open;
(Query1.FieldByName('Pic') as TBlobField).SaveToStream(s);
s.Position := 0;
Image1.Picture.Bitmap.LoadFromStream(s);
s.Free;
end;
KirillRepin (2008-09-15 10:03:00) [21]
> Johnmen © (15.09.08 09:57) [1]
>
> http://www.delphimaster.ru/cgi-bin/forum.pl?id=1221223824&n=1
да это повторение вопроса т.к. ответа там на него нет.
Johnmen (2008-09-15 09:57:00) [22]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1221223824&n=1
| |
Страницы: 