Delphi LANでチャット (ID:150495)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

//Clientから送信
procedure TForm1.Button1Click(Sender: TObject);
begin
    IdTCPClient1.Socket.Write(ByteLength(Edit1.Text));
    IdTCPClient1.Socket.WriteLn(Edit1.Text);
end;

//Server起動
procedure TForm1.Button3Click(Sender: TObject);
var
    Binding: TIdSocketHandle;
begin
    Binding := IdTCPServer1.Bindings.Add;
    Binding.IP   := GStack.LocalAddress; //自身のアドレス
    Binding.Port := 200; //適当
    IdTCPServer1.Active := True;
end;

//Client起動
procedure TForm1.Button4Click(Sender: TObject);
begin
    IdTCPClient1.Host := GStack.LocalAddress;  //相手のアドレス
    IdTCPClient1.Port := 200; //Serverと同じポート
    IdTCPClient1.Connect;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    IdTCPServer1.Active := False;
    IdTCPClient1.Disconnect;
end;

//Server受信
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
    SIZE: Integer;
begin
    SIZE := AContext.Connection.Socket.ReadInt32;
    TEXT := AContext.Connection.Socket.ReadLn;
    Memo1.Lines.Add(TEXT);
end

←解決時は質問者本人がここをチェックしてください。

戻る