[Помогите!] многопотчность и соккет

[Number/1/]

возникла проблема при использовании многопоточности , соккет не коннектится к серверу , хотя пишет что приконектился ,как бы решить проблему?

[Dinmaite]

А в чём выражается отсутствие коннекта к серверу, учитывая то, что сам сокет отвечает что коннект произведён?

[Number/1/]

Цитата: Сообщение от Dinmaite А в чём выражается отсутствие коннекта к серверу, учитывая то, что сам сокет отвечает что коннект произведён?

я когда нахожусь на карте ,и соккет удачно конектится к серверу ,то у меня должно разорваться соединение с картой
А в данном случае я нахожусь на карте ,програмка пишет что вошла на карту ,но соединение не розрывается

[Dinmaite]

Скачай себе TCPView и посмотри есть коннект или нет. Ато эти косвенные методы совсем не точны.

[Number/1/]

Цитата: Сообщение от Dinmaite Скачай себе TCPView и посмотри есть коннект или нет. Ато эти косвенные методы совсем не точны.

нет тут всё точно сокк приконектился меня выкинуло ,но тут такого не происходит

[Dinmaite]

Значит таки ошибка в коде. Возможно не были переданы какие-либо данные для авторизации.

[Number/1/]

Цитата: Reg.Expression := 'dosid=(.*?)'#39';'; if Reg.Exec(S) then SID := Reg.Match[1] else begin Status('Не удалось найти SID!'); Exit; end; Reg.Expression := '"uid": "(.*?)","'; if Reg.Exec(S) then ID := Reg.Match[1] else begin Status('Не удалось найти ID!'); Exit; end; procedure TBot.LoginToGame; begin InitDisconnect := False; status('Соединение с игрой...'); Sock.Host := MapIP; Sock.Address := MapIP; Sock.Active := True; Sock.Socket.Connect(1); FTextToSend := 'LOGIN|'+ID+'|'+SID+'|4.1'#10#00'PNG'#10#00; Sock.Socket.Write(1); PNG.Enabled := True; Lab.Enabled := True; end;

для входа нужен ид и сид я его удачно вытягиваю ,после использую для входа на карту (это только кусок кода)

[Number/1/]

ну так кто нибудь поможет?

[R.A.Z.O.R]

Дело в том, что в потоке не проходит присвоение процедуры объекту, например

SellerTime.OnTimer := SellTime;

procedure TMyThread.SellTime(Sender: TObject);
begin
   {   т.д. и т.п.   }
end;

При том, что присвоение НЕ в потоке проходит, и таймер выполняет свою работу.

Тоже хотел бы узнать, баг Делфи это, или наш.