| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Передача ссылки на файл по почтовику [D7, XP]
uno-84 © (2008-06-20 11:36:00)Здравствуйте! Подскажите пожалуйста! У меня есть почтовик он работает через Базу данных(то есть сообщение вставляется в базу а потом идет получателю), в нем передаются файлы след. образом
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. может у кого есть премеры кода?
Зараннее спасибо
uno-84 (2008-06-20 16:04:00) [1]Поле ATTACHEFILENote должно содержать ссылку, при получении оно записываеться в ListView пользователь, может скачать по ней файл либо
Anatoly Podgoretsky (2008-06-20 13:32:00) [2]Ты читаешь или только пишешь?
uno-84 (2008-06-20 13:18:00) [3]Вернее передать ссылку
uno-84 (2008-06-20 13:17:00) [4]Я так вставлял, при передачи файла и записи его в Блоб, но мне нужна ссылка, по которой полйчатель обращался бы и скачивал файл
Anatoly Podgoretsky (2008-06-20 12:32:00) [5]Не понятно в каком поле, ни одно внешне не похоже на нужное, но примерно так
ParamByName('FILENAME').AsString := OpenDialog.Filename;
| |
