| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как добавить фотографию в поле Graphic? [D7, Paradox]
Andreich © (2004-02-06 15:34:00)
Как добавить фотографию в поле Graphic?
Table1.FieldByName("foto").......;
Andreich (2004-02-06 16:20:00) [21]
Ну пытаюсь сделать как вы говорите
form1.Table1.FieldByName("foto").Asblobfile:= dbimage1.Picture.bitmap ;
Выдает ошибку [Error] Unit2.pas(162): Undeclared identifier: "Asblobfield"
Val (2004-02-06 16:18:00) [22]
>Andreich (06.02.04 16:12) [4]
скажите, а вы ответы читаете, или просто писАть в форум любите?
MV (2004-02-06 16:18:00) [23]
Ну вы и нудный...
Если не хотите, как все, - делайте, как нравится.
Andreich (2004-02-06 16:12:00) [24]
Мне надо вставить картинку в поле из Image почему так не подходит
form1.Table1.FieldByName("foto").AsVariant:= image1.Picture ;
Надо заместо AsVariant поставить as TBlobField но почему именно Blob? Если BlobType у меня FtGraphic???
MV (2004-02-06 16:06:00) [25]
Ах, вот ты какой!
Ну, тогда:
1. Из буфера обмена - в базу и в фотку сразу:
var
S: TStream;
begin
if not Clipboard.HasFormat(CF_BITMAP) then begin
ShowMessage("В буфере обмена нет изображения!");
exit
end;
DataSet.DisableControls;
S := DataSet.CreateBlobStream(
DataSet.FieldByName("foto"), bmWrite);
try
try
Image1.Picture.Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
Image1.Picture.Graphic.SaveToStream(S);
except
on e: Exception do ShowMessage("Ошибка загрузки из буфера обмена:"#13
+e.Message);
end
finally
DataSet.EnableControls;
S.Free;
end;
end;
2. Из картинки:
Image1.Picture.Bitmap.SaveToStream(Table1.FieldByName("foto") as TBlobField);
Andreich (2004-02-06 15:57:00) [26]
Хотел сделать выдает ошибку
form1.Table1.FieldByName("foto").AsVariant:= image1.Picture ;
Пишет не совместимы типы Variant и Picture
MV (2004-02-06 15:38:00) [27]
(Table1.FieldByName("foto") as TBlobField).LoadFromFile("C:\PayBoy\OneGirl");
| |
Страницы: 