Загрузить и выгрузить pdf файл из ado

[Ernest027]

ни так

ShellExecute(handle,'open',PChar(DataModule2.ADOQuery4.FieldByName('pdf').AsString)
      ,nil,PChar(DataModule2.ADOQuery4.FieldByName('pdf').AsString),sw_show);

ни так

ShellExecute(Handle,'open',PChar(DataModule2.ADOQuery4.FieldByName('pdf').AsString)
     ,nil,nil,SW_SHOWNORMAL);

не работает

[Stilet]

ShellExecute возвращает код. Проверь его, и если он меньше чем 33 - Выведи текст ошибки используя функцию RaiseLastOSError() чтоб понять почему не хочет.

[Аватар]

А что в pdf-поле - полный путь или только имя файла?

[Ernest027]

полный путь

ShellExecute возвращает код. Проверь его, и если он меньше чем 33 - Выведи текст ошибки используя функцию RaiseLastOSError() чтоб понять почему не хочет.

systemerror. Code:2. Не удается найти указанный файл.

[Stilet]

Ну так такого файла нет значит

[Ernest027]

begin
if DataModule2.sOpenDialog1.Execute then
begin
  DataModule2.ADOQuery4.Edit;
  DataModule2.ADOQuery4.FieldByName('pdf').Assign(DataModule2.sOpenDialog1.Files);
  datamodule2.adoquery4.Post;
end;
end;

так добавляю ссылку в базу

begin
 ShellExecute(handle,'open',PWideChar(DataModule2.ADOQuery4.FieldByName('pdf').AsString),nil,nil,SW_SHOWNORMAL);
end;

пытаюсь открыть этот файл. что не правильно?

[Аватар]

И зачем Files грузишь? Это StringList для множественного выбора. Пиши FileName

[Ernest027]

И зачем Files грузишь? Это StringList для множественного выбора. Пиши FileName

упс) все работает) спасибо товарищи)))

[Ernest027]

А как все таки именно файл загрузить в базу?

[Stilet]

А разве я выше тебе не рассказал как?