![]() |
|
|
#1
|
|||
|
|||
![]() Здравствуйте, после подключения ClientSocket к ServerSocket программа выдает ошибку http://jtorrent.ru/view.php?img=2b80...062918b73efbfc
вот код Код:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket); var Msg:String; Cmd:string[3]; Text:string; NewClient:PPacket; ItemList:TStringList; i:Integer; begin msg:=Socket.ReceiveText; Cmd := Copy(msg,1,3); if (Cmd = '101') then begin Text := Copy(msg,4,maxint); New(NewClient); NewClient^.Nick := Text; Socket.Data := NewClient; ListBox1.Items.Add(Text); ItemList:=TStringList.Create; Ini.ReadSection('RegServers',ItemList); for i:=0 to ItemList.Count-1 do begin if not (ItemList.Strings[i]= Text) then Ini.WriteString('RegServers',Text,''); end; ItemList.Free; Ini.Free; end; if (Cmd = '102') then begin Text := Copy(msg,4,maxint); New(NewClient); NewClient^.Nick := Text; Socket.Data := NewClient; ListBox2.Items.Add(Text); end; end; |
#2
|
|||
|
|||
![]() что такое PPacket?
|
#3
|
||||
|
||||
![]() -Ini не создан
-и вообще это код для события OnClientRead у TServerSocket -брэйкпоинт на 11 строке и по шагам Пишу программы за еду. __________________ |
#4
|
|||
|
|||
![]() Забыл. Ошибку выдает когда закрыл программу
|
#5
|
||||
|
||||
![]() по приведенному коду программа написана абсолютно неправильно
Пишу программы за еду. __________________ |