Связь Delphi с Access

[Light]

Здравствуйте!
Мне необходимо связать Delphi с БД Access так,чтобы я ещё при этом могла через Access оперировать с "внешними" файлами: находить файл и открывать его содержимое по ссылке,которая храниться в БД Access.Реально ли это сдлеать?Вся проблема в том,что я никогда раньше не работала с Delphi... Буду очень благодарна,если сможете помочь или подсказать,с чего лучше начинать.
Заранее спасибо!

[фЁдОр]

Light, а как понять оперировать с "внешними" файлами: находить файл и открывать его содержимое по ссылке,которая храниться в БД Access? Что за файлы Вы имеете в виду?

с чего лучше начинать

можно начать и с поиска по форуму, а можно в книге почитать.

[Light]

C любым текстовым файлом.Например:в БД хранится ссылка на некоторый текстовый файл,в котором предоставлен список имен.Необходимо,чтобы Delphi,пройдя по этой ссылке,хранящейся в Access? открыл содержимое текстового файла.Примерно так.

[Yurk@]

А че тут такого сложного ???
Берешь строку адреса из базы - впихиваешь ее в путь к файлу и открываешь.
Кста: как ты собираешься отображать открытый файл?

[Scorpy]

Бросаешь на форму компоненты:

TADOConnection
TDataSource
TADOTable

В TADOConnection выбираешь свойство ConnectionString, кнопочку Build, потом выбрать драйвер Microsoft Jet 4.0 OLE DB. Потом выбираешь путь к файлу Акцесса, логин и пароль, если есть.

Теперь в компоненте TDataSource ставишь свойство ADOTable1 для связи.

В компоненте TADOTable в параметре TableName выбираешь имя таблицы Акцесса, с которой нужно работать. После этого поставить свойство Active в True.

Дальше можно вытаскивать компонент DbGrid и выставить свойство DataSourse в DataSourse1. После этого в сетке отобразится содержимое таблицы.

Это произошло только подключение к одной таблице Акцессовского файла. Для других таблиц нужно вытаскивать и также настраивать новые компоненты TDataSource и TADOTable.

Если в базе есть пути, можно эти пути копировать и октрывать по ним хоть в блокноте или Экселе. Если это текстовые файлы

[Surgeon]

Дано : путь к файлу в отдельном поле базы данных.
Есть варианты в зависимости от типа файла:
- Если файл в формате с которым не хочется связываться, то открыть используя программу назначенную Windows для данного типа файла. Можно вызвать ShellExecute:
===
procedure TMainForm.N4Click(Sender: TObject);
var
articlefilename:string;
begin
articlefilename:=DataModule1.MainTa blepath.AsString;//забираю из поля путь как строку
ShellExecute(0,LPCTSTR('open'),LPCT STR(articlefilename),LPCTSTR(nil),L PCTSTR('C:\'),SW_SHOWNORMAL);
//вызываю открытие файла назначенной внешней программой
end;
===
- если текстовый файл или структура хорошо известна, то открыть собственными силами.
Например для текстового можно :
- поместить на главную форму TMemo и вызвать Memo1.Lines.LoadFromFile(articlefil ename);
- создать дополнительную форму с TMemo и открывать там

В Access есть тип данных "гиперссылка".
В своей базе я не стал его использовать а реализовал используя ShellExecute, поскольку не известен заранее тип открываемого файла.

[Light]

Спасибо всем!)

[Light]

Подскажите,плиз,что нужно изменить здесь,чтобы перехват был не только с малой клавиатуры:
library dahook;
uses
Windows, Messages;
const
WM_DA_KEYHOOK = WMJJSER + 133;
var
SHook : HHook = 0;
function HookProc(code : Integer; wParam : Word; lParam :
Longlnt) : Longlnt; stdcall;
var
H: HWND;
KeyStates: TKeyboardState;
Buffer :Char; begin
if (Code = HC_ACTION) and (((lParam shr 16) and KF_UP) =0) then begin
if (GetKeyboardState(KeyStates)) then
if ToAscii(wParam, ((lParam shr 16) and $FFFF), KeyStates, @Buffer,O) = 1 then begin
H := FindWindow('TDAMainForm', nil);
SendMessage(H, WM_DA_KEYHOOK, wParam, Ord(Buffer)); end; end;
result:= CallNextHookEx(SHook, Code, wParam, lParam); end;
procedure SetHook(b : Boolean) export; stdcall; begin
if b then
begin
SHook := SetWindowsHookEx(WH_KEYBOARD, @HookProc, HInstance,0);
if (SHook = 0} then
MessageBox(0, 'He могу установить ловушку.',
'ERROR!', MB_OK and MB_ICONERROR); end else begin
if (SHook <> 0) then UnHookWindowsHookEx(SHook); SHook := 0; end; end;
exports
SetHook;
begin end.