아래에 있는 코딩인데요.. 소켓의 액티브를 true로 함과 동시에 소켓에 메세지를 전송하니 안됩니다. 서버에 로그온하는 프로그램이라 접속을 하면서 아이디와 비밀 번호를 동시에 전송을 해야 합니다.
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.clientsocket2.active:=true;
id:= edit1.text;
pwd:= edit2.text;
logstr1:= 's:' + id + '@' + pwd;
form1.clientsocket2.socket.sendtext(logstr1);
end;
클라이언트 소켓의 OnConnect 이벤트에 나머지 코딩을 해주시면 될거 같습니다.
volf wrote:
> 아래에 있는 코딩인데요.. 소켓의 액티브를 true로 함과 동시에 소켓에 메세지를 전송하니 안됩니다. 서버에 로그온하는 프로그램이라 접속을 하면서 아이디와 비밀 번호를 동시에 전송을 해야 합니다.
>
>
> procedure TForm2.Button1Click(Sender: TObject);
> begin
> form1.clientsocket2.active:=true;
> id:= edit1.text;
> pwd:= edit2.text;
> logstr1:= 's:' + id + '@' + pwd;
> form1.clientsocket2.socket.sendtext(logstr1);
> end;