Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 03:17 20.06.24 
Клубове/ Компютри и Интернет / Delphi Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема 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;



Цялата тема
ТемаАвторПубликувано
* FTP грешка? Barni   05.11.05 23:31
. * Re: FTP грешка? aнoнимeн   09.11.05 23:58
. * Re: FTP грешка? nettle   10.11.05 09:24
. * Re: FTP грешка? Beco   10.11.05 15:58
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.