При клике по БД открывать документ

[Armageddets]

Всем доброго времени суток, уважаемые эксперты. Передо мной стоит задача чтобы при клике по ячейке в БД запускать по ссылке, написанной в этой ячейке документ. У меня почему-то не работает. Таблица в БД.

Когда я пишу одним из этих способов - ничего не происходит:

  if (Column.FieldName='Ссылка на документ') 
and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then 
  WinExec( 'C:\!!!.txt', SW_SHOWNORMAL);

  if (Column.FieldName='Ссылка на документ') 
and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then
  ShellExecute(Handle,nil, PChar(DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString) ,nil,nil,SW_ShowNormal);

А если прописывать напрямую - тогда все запускается.

if (Column.FieldName='Ссылка на документ') 
and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then
WinExec( 'C:\!!!.txt', SW_SHOWNORMAL);

if (Column.FieldName='Ссылка на документ') 
and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then 
ShellExecute(Handle,nil, 'C:\!!!.txt' ,nil,nil,SW_ShowNormal);

Через точки прерывания - текст передается. Но почему-то не запускается документ. Может причина в типах Pchar и String? Кто знает как исправить данную проблему или запускать документ по ссылке из БД - подскажите, буду очень благодарен. Заранее всем спасибо.

[kropotkina-alice]

Замените

ShellExecute(Handle,nil...

на

ShellExecute(Handle,'open'...

[Armageddets]

К сожалению - результатов замена никаких не дала. Вот прилагаю сам исходник, может чем-то поможет:
Проект

[kropotkina-alice]

А приведите-ка примеры ссылок на документы, которые у вас в таблице...

[Aliens_wolfs]

Что за Delphi у вас? В разных версиях могут быть проблемы в типах.

Можно попробовать так, должно работать

ShellExecute(Handle, 'open', 'notepad',
 PAnsiChar(DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString), nil, SW_ShowNormal);

[Armageddets]

Работаю с Delphi 7 на Windows XP.

Примеры ссылок:
C:\!!!.txt
C:\1.txt
D:\Documents\2012\office\New.doc
D:\Documents\New.doc

При использовании данного метода:

ShellExecute(Handle, 'open', 'notepad',
 PAnsiChar(DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString), nil, SW_ShowNormal);

Выскакивает ошибка "Системе не удается найти заданный путь" и открывается пустой блокнот. Хотя по заданному пути лежит файл

[Aliens_wolfs]

ShellExecute(Handle, 'open', 'WINWORD',
 PAnsiChar(D:\Documents\2012\office\New.doc), nil, SW_ShowNormal);

Проверить еще нужно что в ссылке нет переноса символов и прочих символов обычно в конце строки бывают

[xxbesoxx]

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

Передо мной стоит задача чтобы при клике по ячейке в БД запускать по ссылке, написанной в этой ячейке документ.

А если в этом .txt файле много сток ? То есть тип поля VARCHAR(30) и .txt файле уже (Больше 30) на этого не надо думать ?

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

Что за Delphi у вас? В разных версиях могут быть проблемы в типах.
Можно попробовать так, должно работать

ShellExecute(Handle, 'open', 'notepad',
 PAnsiChar(DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString), nil, SW_ShowNormal);

На данный момент не имеет значения (версия Delphi)

[Aliens_wolfs]

На данный момент не имеет значения (версия Delphi)

PChar в XE может не правильно вывести результат, в начале темы указанно в первом примере.

А если в этом .txt файле много сток ? То есть тип поля VARCHAR(30) и .txt файле уже (Больше 30) на этого не надо думать ?

у него проблема в корректном пути к файлу так как даже как я понял Word не открывает файл тот что в ссылке

[Armageddets]

Проверил наличие символов лишних в конце - вроде нет ничего (при стирании последнего симвода стрирается буква t):

  var s:String;

  S:=PChar( DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString );
  Delete(S,Length(S),1);

  if (Column.FieldName='Ссылка на документ')
  and (DBGrid1.DataSource.DataSet.FieldByName('Ссылка на документ').AsString<>'') then
  ShellExecute(Handle, 'open', 'notepad', PAnsiChar(S), nil, SW_ShowNormal);

Все равно не мог понять в чем дело. Когда указываешь вручную нужную строку - докуметы открываются, а когда из БД берется - ничего не происходит (запуск приложения срабатывает судя по точкам прерывания, а вот сам документ не открывается).

На счет длины текста в документе - если бы с этим были проблемы - то когда указываешь ссылку вручную - оно бы не запускалось по идее.