![]() |
|
#1
|
|||
|
|||
![]() у меня есть код
Код:
procedure ready(IdPOP31:TIdPOP3; edit1,edit2,edit3:TEdit; label4,label5: TLabel); begin host:='pop.yandex.ru' user:=edit2.Text; IdPop31.Host:=host; IdPOP31.Port:=110; IdPOP31.Username:=user; assignfile(list,edit3.Text); reset(list); label4.Caption:=label4.Caption+' '+host; while not eof(list) do begin readln(list,s); i:=i+1; end; label5.Caption:=label5.Caption+' '+inttostr(i); closefile(list); end; procedure TForm1.Button2Click(Sender: TObject); begin ready(IdPOP31,edit1,edit2,edit3,label4,label5); assignfile(list,edit3.Text); reset(list); readln(list,s); edit4.Text:=s; IdPOP31.Password:=s; while not IdPOP31.Connected do begin try IdPOP31.Connect(50); except exit; end; end; label7.Visible:=true; closefile(list); end; |