|
Тема |
FTP грешка? |
|
Автор | Barni (Нерегистриран) | |
Публикувано | 05.11.05 23:31 |
|
|
Здравейте! Защо на клиента, ми се появява следната грешка:
"Connection Closed Gracefully.", когато се помъча да приема файла изпратен от сървъра? Това е кода, който използвам:
сървър:
object ftps1: TIdFTPServer
Bindings = <>
CommandHandlers = <
item
CmdDelimiter = ' '
Command = 'proba_send_file'
Disconnect = False
Name = 'TIdCommandHandler0'
OnCommand = IdFTPServer1TIdCommandHandler0Command
ParamDelimiter = ' '
ReplyExceptionCode = 0
ReplyNormal.NumericCode = 0
Tag = 0
end>
DefaultPort = 21
Greeting.NumericCode = 220
Greeting.Text.Strings = (
'Indy FTP Server ready.')
Greeting.TextCode = '220'
MaxConnectionReply.NumericCode = 0
ReplyExceptionCode = 0
ReplyTexts = <>
ReplyUnknownCommand.NumericCode = 500
ReplyUnknownCommand.Text.Strings = (
'Syntax error, command unrecognized.')
ReplyUnknownCommand.TextCode = '500'
AnonymousAccounts.Strings = (
'anonymous'
'ftp'
'guest')
UserAccounts = IdUserManager1
SystemType = 'WIN32'
Left = 195
Top = 95
end
object IdUserManager1: TIdUserManager
Accounts = <
item
UserName = 'Proba'
Password = '123456'
RealName = 'Probov'
end>
CaseSensitiveUsernames = False
CaseSensitivePasswords = False
Left = 60
Top = 75
end
procedure TForm1.Button1Click(Sender: TObject);
begin
ftps1.Active:=true;
end;
клиент:
object IdFTP1: TIdFTP
MaxLineAction = maSplit
ReadTimeout = 0
Host = '127.0.0.1'
OnConnected = IdFTP1Connected
Passive = True
Password = '123456'
Username = 'Proba'
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 95
Top = 20
end
object IdAntiFreeze1: TIdAntiFreeze
Left = 160
Top = 25
end
procedure TForm1.Button1Click(Sender: TObject);
begin
idftp1.Connect();
end;
procedure TForm1.Button2Click(Sender: TObject);
var s:tmemorystream;
begin
idftp1.WriteLn('proba_send_file');
s:=tmemorystream.Create;
idftp1.ReadStream(s);
s.SaveToFile('c:\321.txt');
s.Free;
end;
|
| |
|
|
|