Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прервать передачу файла по FTP

Ренат © (2003-07-24 11:43:00)

Использую NMTFP c FastNet
Как прервать передачу файла? Перепробовал методы все выдают "Access Violation"

Ренат (2003-07-24 16:41:00) [1]

откат сам разобрался

Ренат (2003-07-24 16:21:00) [2]
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do
begin
Connect;
try
Download(File1,File2);
except
Showmessage("Сообщение прервано");
( Sender: TObject)
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do
begin
Connect;
try
Download(File1,File2);
except
Showmessage("Сообщение прервано");
end;
end;
end;

procedure TWaitcopy.Button2Click(Sender: TObject);
begin
cancelTransmit:=true;
end;

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
if cancelTransmit then NMFTP1.Abort;
end;

После нажатия на Button2 выполняется NMFTP1.Abort и возникает
сначала все-таки Exception "Socket send aborted" а потом
AV на Download(File1,File2). Это в дебаггере.

Призапуске exe программа закрывается безо вских сообщений.

Digitman (2003-07-24 16:08:00) [3]

> на выходе из NMFTP1PacketRecvd
> на строке Download получаю AV.

не вижу никаких Download ни на входе ни на выходе процедуры-обработчика

ты в состоянии ее целиком привести ?
это раз.

второе.
какой смысл вообще в получении методом Download управления, если перед этим выполнен метод Abort ?

Ренат (2003-07-24 15:44:00) [4]

Ладно хорошо не так написал

Abort прерывает закачку и на выходе из NMFTP1PacketRecvd
на строке Download получаю AV.

Reindeer Moss Eater (2003-07-24 15:37:00) [5]

Юноша, я тебе не дорогой!

А самому трудно понять?

Сначала ты рассказываешь, что при попытке прерывания получаешь AV, приводишь код прерывающий закачку.
А после выясняется, что AV вызывается при Download.

Ренат (2003-07-24 15:31:00) [6]

> Блеск!!! :)

?????????
обоснуй дорогой

Reindeer Moss Eater (2003-07-24 15:29:00) [7]
1)Как прерватьпередачу файла? Перепробовал методы все выдают "Access Violation"

2)код-то приведи !

3)procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
if .. then
begin
NMFTP1.Abort;
( File1,File2)
1)Как прерватьпередачу файла? Перепробовал методы все выдают "Access Violation"

2)код-то приведи !

3)procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
if .. then
begin
NMFTP1.Abort;
NMFTP1.Disconnect;
end else ..
end;

4)на какой строчке получаешь AV ?

5)NMFTP1. Download(File1,File2);

Блеск!!! :)

Ренат (2003-07-24 15:26:00) [8]

на строчке

NMFTP1.Download(File1,File2);

Digitman (2003-07-24 14:56:00) [9]

на какой строчке получаешь AV ?

Ренат (2003-07-24 14:09:00) [10]

procedure TForm1.NMFTP1PacketRecvd(Sender: TObject); begin if .. then begin NMFTP1.Abort; NMFTP1.Disconnect; end else .. end;

Также Cancel, RequestCloseSocket.

Digitman (2003-07-24 11:48:00) [11]

> Перепробовал методы все выдают "Access Violation"

каким же образом ты их "пробовал" ? код-то приведи !

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »