Форум: "Базы";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
ВнизЗагрузка рисунка из БД в TImage Найти похожие ветки
← →
KirillRepin © (2008-09-12 16:50) [0]Подскажите пожалуйста, а загрузить из БД обратно в TImage как?
как я понимаю это SaveToStream вот только немогу сформировать нормально код. Вот что делаю я:
var
s:TMemoryStream;
begin
s:=TMemoryStream.Create;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text := "SELECT Pic FROM Tab_Pictures WHERE Id_Pictures = 4";
Query1.ExecSQL;
end;
Что не так? и как правильно воткнуть и куда SaveToStream ?
← →
Ega23 © (2008-09-12 16:52) [1]TBLOBField(FieldByName("BLOBField")).SaveToStream()
← →
Правильный$Вася (2008-09-12 16:55) [2]
> Query1.ExecSQL;
Query.Open;
← →
KirillRepin © (2008-09-12 16:58) [3]
> Ega23 © (12.09.08 16:52) [1]
>
> TBLOBField(FieldByName("BLOBField")).SaveToStream()
извините но можно попросить примером кода, а то не понимаю как это применить.
← →
stas © (2008-09-12 16:59) [4]TBLOBField(FieldByName("BLOBField")).SaveToStream(S)
где s TMemoryStream
← →
Ega23 © (2008-09-12 17:04) [5]
> извините но можно попросить примером кода, а то не понимаю
> как это применить.
гм... Вообще-то это и есть пример кода. Если ты его не можешь понять - почитай хелп. Потом погугли. Не получится (понять) - найми программиста.
← →
KirillRepin © (2008-09-12 17:08) [6]
> TBLOBField(FieldByName("BLOBField")).SaveToStream(S)
> где s TMemoryStream
непонятно как использовать TBLOBField, а (FieldByName("BLOBField")).SaveToStream(S)
и s TMemoryStream это все понятно. если просто вставить строку
TBLOBField(FieldByName("Pic")).SaveToStream(S) то она соответственно не работает
← →
stas © (2008-09-12 17:10) [7]Потом Image - LoadFromStream(S)
← →
Правильный$Вася (2008-09-12 17:16) [8]
> она соответственно не работает
че говрит?
CreateBlobStream тоже можно
← →
KirillRepin © (2008-09-12 17:41) [9]Делаю так:
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);
Image1.Picture.Bitmap.LoadFromStream(s);
s.Free;
end;
в TImage ничего не появляется???
← →
Ega23 © (2008-09-12 17:44) [10]stream.position := 0;
← →
KirillRepin © (2008-09-12 17:57) [11]Сделал:
(Query1.FieldByName("Pic") as TBlobField).SaveToStream(s);
s.Position := 0;
Image1.Picture.Bitmap.LoadFromStream(s);
но почему то загружается черный квадрат, а не тот рисунок который грузился в БД???
← →
Правильный$Вася (2008-09-15 12:01) [12]http://delphimaster.net/view/3-1221456652/
не спамь больше
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.008 c