Форум: "Основная";
Текущий архив: 2004.01.23;
Скачать: [xml.tar.bz2];
ВнизКак добавить картинку в баз данных? Найти похожие ветки
← →
Adil Aliyev (2004-01-11 20:32) [0]Писал так не работает. Кто может помочь?
(База: Paradox7)
procedure TTntForm3.TntButton1Click(Sender: TObject);
var
icl:hicON;
a:word;
ico:TPicture;
begin
ico:=TPicture.Create;
if OpenDialog1.Execute then begin
Table1.Active:=true;
ico.Icon.Handle:=ExtractAssociatedIcon(HInstance,pchar(OpenDialog1.filename),a);
//Query1.Fields[2].Assign(ico);
Table1.InsertRecord([nil ,opendialog1.filename,ico]);
DBImage1.LoadPicture;
Query1.Active:=false;
Query1.Active:=true;
end;
end;
← →
alex_*** (2004-01-11 21:16) [1]В нормальных БД это делается через BlobField. TBlobField.LoadFromFile, .LoadFromStream. Blob в Paradox"e тоже должен быть.
← →
Adil Aliyev (2004-01-12 10:35) [2]Ошибка здесь:
Table1.InsertRecord([nil ,opendialog1.filename,ico]);
Что то нитак??
← →
alex_*** (2004-01-12 10:39) [3]ты представляешь что из себя представляет HIcon хотя бы физически? Указатель размером 4 байта. И что ты хочешь чтобы у тебя сохранилось в БД?
← →
Adil Aliyev (2004-01-12 10:45) [4]А как можно вставить в БД картинку(необъезательно TICON)?
← →
Serge (2004-01-12 10:48) [5]Var
OD: TOpenPictureDialog;
Begin
OD := TOpenPictureDialog.Create(Self);
With OD Do Begin
Filter := "Dat files (*.bmp)|*.BMP";
DefaultExt := ".BMP";
InitialDir := ExtractFilePath(Application.ExeName) + "Imagini";
End;
If OD.Execute Then
Begin
DM.Query_Valute.Edit;
TBlobField(DM.Query_Valute.FieldByName("Bitmap")).LoadFromFile(OD.FileName);
DM.Query_Valute.Post;
End;
← →
alex_*** (2004-01-12 10:51) [6]смотри тестовые DBDEMOS, демосы на db, а также using TBlobFields
← →
Adil Aliyev (2004-01-12 10:54) [7]Cgcb
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c