Сохранять изображения и файлы в базу данных Paradox

[hoba]

Доброго времени суток. Учусь писать СУБД. Сейчас пишу программу по учету студентов. Понадобилось сохранять их изображения. Не могу понять как это делать. Находил информацию про использование BLOB полей но ничего не понял. Не поможет ли кто мне примером или достойной информацией.

[Speeker]

я тоже с этим не разобрался, я просто написал програмку которая копировала фото в спец. папку програмы а в текстовом поле указывал только путь к ней с привязкой к учетной записи.

[Stilet]

Весьма достойны следующие ссылки:

http://www.delphiworld.narod.ru/base...lob_field.html
http://www.delphiworld.narod.ru/base...ke_bitmap.html
http://www.delphiworld.narod.ru/base...from_blob.html

[hoba]

Сообщение от Speeker

я тоже с этим не разобрался, я просто написал програмку которая копировала фото в спец. папку програмы а в текстовом поле указывал только путь к ней с привязкой к учетной записи.

Я же написал что учусь писать а не выполняю чей то заказ, когда без разницы как сделано.
За ссылки спасибо, но я это уже читал и что не очень понял где осуществляется в листингах загрузка рисунка в базу. И еще вопрос один встал какой тип поля соответсвует BLOB в парадоксе. Т.е. что нужно выбирать в типе поля когда сождаешь таблицу.

[Stilet]

какой тип поля соответсвует BLOB в парадоксе

Чесно говоря я не спец по парадоксам, но помоему тип МЕМО

[hoba]

Что то я не понял из тех статей где они берут этот компонент TBlobField. Попробовал в наглую создать. Подключил модуль DB написал следующее:

blob:=TBlobField.Create(nil);
if OpenDialog1.Execute then
blob.LoadFromFile(OpenDialog1.FileN ame);
with DataModule2.Base do begin
Insert;
FieldByName('blob').Assign(blob);
end;

Возникает ошибка:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0047A09E in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Не знаю что делать, поскажите ктонибудь.

[Stilet]

Возникает ошибка:

Полностью код в студию.

[hoba]

Там впринципе ничего больше интресного. Вот:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2,
DB, //вот эту вещь подключил
Grids, DBGrids;

type
TForm1 = class(TForm)
Button1: TButton;
BtOpen: TButton;
BtClose: TButton;
OpenDialog1: TOpenDialog;
DBGrid1: TDBGrid;
procedure BtOpenClick(Sender: TObject);
procedure BtCloseClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtOpenClick(Sender: TObject);
begin
DataModule2.Base.Open; //открыть базу
end;

procedure TForm1.BtCloseClick(Sender: TObject);
begin
DataModule2.Base.Open; //закрыть базу
end;

procedure TForm1.Button1Click(Sender: TObject);
var
blob : TBlobField;

begin

blob:=TBlobField.Create(nil);
if OpenDialog1.Execute then
blob.LoadFromFile(OpenDialog1.FileN ame);
with DataModule2.Base do begin
Insert;
FieldByName('blob').Assign(blob);
end;

end;

end.

База хранится файлом, путь прописан в компоненте TTable. Открывается и закрывается без ошибок.

[Stilet]

(DataModule2.Base.table1.fieldbyname('blob') as TBlobField).loadfromfile('c:\file.jpg');

Не возился давно с блобами. попробуй и так еще.

[hoba]

Так не получается, хотя бы из за синтаксиса. Но идею понимаю и уже пробовал. Увы. Главное что он выдает ошибку еще при попытки загрузить файл в blob переменую. Думаю дело в том что я его не правильно создал
blob:=TBlobField.Create(nil);
Аргумент думается другой.

Точно, проблема стоит еще ранее с созданием объекта Blob.