Форум программистов [Powered by Invision Power Board]

Так вот в этом то и загвоздка!
Раньше подключался к почте через indy:

Код


MainForm.POP3.Port:=110;
MainForm.POP3.Host:=temp;
MainForm.POP3.Username:=temp;
MainForm.POP3.Password:=temp;
MainForm.POP3.Connect;
if mainform.POP3.Connected then begin
----забираем почту-----
MainForm.POP3.Disconnect;

Перешел на ICS:

Код


pop3Cli.Host:='pop.mail.ru';
pop3Cli.Port:=110;
pop3Cli.UserName:='';
pop3Cli.PassWord:='';
pop3Cli.Connect;
if SyncPop3Cli.Connected then
----забираем почту-----

Это создание многопоточного запроса на пинг адреса:

Код


procedure TForm1.doPingClick(Sender: TObject);
var
    I, T: integer ;
begin
    T := HostNames.Lines.Count ;
    if T = 0 then exit ;
    if Sender = doPing1 then T := 1 ;
    LogWindow.Lines.Add ('') ;
    for I := 0 to Pred (T) do
    begin
        if HostNames.Lines [I] <> '' then
        begin
            with TPingThread.Create (True) do   // create suspended
            begin
                PingAddThread (ThreadId) ;      // keep threadid so it's freed
                FreeOnTerminate := True;
                PingId := succ (I) ;            // keep track of the results
                OnTerminate := PingThreadTermPing ;    // where we get the response
                PingHostName := HostNames.Lines [I] ;  // host name or IP address to ping
                PingTimeout := 4000 ;           // ms
                PingTTL := 32 ;                 // hops
                PingLookupReply := false ;      // don't need response host name lookup
                Resume ;                        // start it now
            end ;
        end;
    end ;
end;

Так вот я и не могу связать эту многопоточность с ICS.
Кто-нибудь бы пример выложил или исходник процедуры как запрос в потоке отправлять!