Скачать: CL | DM;

Как добавить картинку в баз данных?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c