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

← →
Ренат © (2003-07-24 11:43) [0]

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

← →
Digitman © (2003-07-24 11:48) [1]

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

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

← →
Ренат © (2003-07-24 14:09) [2]

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

Также Cancel, RequestCloseSocket.

← →
Digitman © (2003-07-24 14:56) [3]

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

← →
Ренат © (2003-07-24 15:26) [4]

на строчке

NMFTP1.Download(File1,File2);

← →
Reindeer Moss Eater (2003-07-24 15:29) [5]

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:31) [6]

> Блеск!!! :)

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

← →
Reindeer Moss Eater (2003-07-24 15:37) [7]

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

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

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

← →
Ренат © (2003-07-24 15:44) [8]

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

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

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

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

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

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

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 программа закрывается безо вских сообщений.

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

Прервать передачу файла по FTP Найти похожие ветки