Как результат запроса сохранить в txt файл, чтобы потом загрузить на сервер по ftp ?

← →
Tra (2002-02-08 18:52) [13]

Спасибо за помощь:
kig
kserg@ukr.net
Romul
В итоге у меня вышло следующее:

procedure TForm1.Button4Click(Sender: TObject);
var F:TextFile;
begin
AssignFile(F, "c:\111\1.txt");
{$I-}
Rewrite(F);
{$I+}
with Query3 do
begin
Open;
while not Eof do
begin
writeln(F, Fields[0].ASString);
next;
end;
Close;
end;
CloseFile(F);
end;
end.

Query3:
select email_1
from Firms

В итоге получил тектовой файл: c:\111\1.txt
со списком почтовых адресов (email_1) из таблици Firms

С этим вроде все, теперь задача закачать этот файл с адресами
на удаленный сервер провайдера.

У кого есть идеи ?

Как результат запроса сохранить в txt файл, чтобы потом загрузить на сервер по ftp ? Найти похожие ветки