Передача ссылки на файл по почтовику

← →
uno-84 (2008-06-20 11:36) [0]

Здравствуйте! Подскажите пожалуйста! У меня есть почтовик он работает через Базу данных(то есть сообщение вставляется в базу а потом идет получателю), в нем передаются файлы след. образом

if ListView1.Items[N].Caption = "Ôàéë" then
begin
SQL.Clear;
SQL.Add("insert into ATTACHFILES( ATTACHFILE_ID, ATTACH_ID, ATTACHFILE_NOTE, ATTACHFILE_DATA) values (GEN_ID(ATTACHFILE_GEN, 1), :ATTACH_ID, :ATTACHFILE_NOTE, :ATTACHFILE_DATA)");
ParamByName("ATTACH_ID").AsInteger := AT;
ParamByName("ATTACHFILE_NOTE").AsString := ListView1.Items[N].SubItems[1];
NFIL := ListView1.Items[N].SubItems[0]; ParamByName("ATTACHFILE_DATA").LoadFromFile(NFIL, ftBlob);
Try
ExecSQL;
Except
Result := False;
end;

NFIL- полное имя файла
Мне теперь нодо передавать ссылки на файлы, подскажите как это можно сделать? файл выбирается при помощи компонента OpenDialog. может у кого есть премеры кода?
Зараннее спасибо

← →
Anatoly Podgoretsky © (2008-06-20 12:32) [1]

Не понятно в каком поле, ни одно внешне не похоже на нужное, но примерно так

ParamByName("FILENAME").AsString := OpenDialog.Filename;

← →
uno-84 (2008-06-20 13:17) [2]

Я так вставлял, при передачи файла и записи его в Блоб, но мне нужна ссылка, по которой полйчатель обращался бы и скачивал файл

← →
uno-84 (2008-06-20 13:18) [3]

Вернее передать ссылку

Ты читаешь или только пишешь?

← →
uno-84 (2008-06-20 16:04) [5]

Поле ATTACHEFILENote должно содержать ссылку, при получении оно записываеться в ListView пользователь, может скачать по ней файл либо

Передача ссылки на файл по почтовику Найти похожие ветки