Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Вниз
Как заставит два TClientSocket одновременно отправлять текст??? Найти похожие ветки
← →
Новочеркасский Волк © (2006-03-09 00:15) [0]Здравствуйте. Подскажите пожалуйсто вот мне надо чтоб по нажатию Buttion1 ClientSocket1 отправлял своему серверу текст (доустим) "ааа", а ClientSocket2 отправлял текст "ббб" своему серверу. Когда это осуществляеш вылетает ошибка, что типа нельзя отпра влять сразу два. Я пробовал, отгораживал их Буливской переменной, что сначала один, потом другой но нет всё рано не могут!!! Подскажите что делать.
----------------------------------------------
Заранее очень благодарен!!!
← →
Германн © (2006-03-09 01:42) [1]
> Когда это осуществляеш вылетает ошибка, что типа нельзя
> отпра влять сразу два.
Оригинал в студию!
← →
Новочеркасский Волк © (2006-03-09 17:04) [2]Ошибки таковы: Первое окошко с ошибкой: Asynchronous socket error 10053. А второе: Windows socket error: Запрос на отправку или получение данных (when sending on datagram socket using a sento call) no address was supplied (10057), on API "recv"
Вот сисходник сервера и клиента:
Сервер
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
KIP: String;
begin
KIP:=(ServerSocket1.Socket.ReceiveText);
Edit1.Text:=(KIP);
end;
procedure TForm1.ServerSocket2ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
KIPe: String;
begin
KIPe:=(ServerSocket2.Socket.ReceiveText);
Edit2.Text:=(KIPe);
end;
Клиент:
procedure TForm1.Button1Click(Sender: TObject);
var
IPP: String;
begin
ClientSocket1.Active:=True;
ClientSocket2.Active:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
bol: Boolean;
begin
Bol:=False;
if bol=false then
begin
ClientSocket1.Socket.SendText("aaa");
bol:=True;
end;
if bol=True then
begin
ClientSocket1.Socket.SendText("ббб");
end;
end;
------------------------------------------------------
Заранее всем благодарен!!!
← →
Новочеркасский Волк © (2006-03-09 17:12) [3]Ошибки таковы: Первое окошко с ошибкой: Asynchronous socket error 10053. А второе: Windows socket error: Запрос на отправку или получение данных (when sending on datagram socket using a sento call) no address was supplied (10057), on API "recv"
Вот сисходник сервера и клиента:
Сервер
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
KIP: String;
begin
KIP:=(ServerSocket1.Socket.ReceiveText);
Edit1.Text:=(KIP);
end;
procedure TForm1.ServerSocket2ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
KIPe: String;
begin
KIPe:=(ServerSocket2.Socket.ReceiveText);
Edit2.Text:=(KIPe);
end;
------------------------------------------------------------------
Клиент:
procedure TForm1.Button1Click(Sender: TObject);
var
IPP: String;
begin
ClientSocket1.Active:=True;
ClientSocket2.Active:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
bol: Boolean;
begin
Bol:=False;
if bol=false then
begin
ClientSocket1.Socket.SendText("aaa");
bol:=True;
end;
if bol=True then
begin
ClientSocket1.Socket.SendText("ббб");
end;
end;
------------------------------------------------------
Заранее всем благодарен!!!
← →
Сергей М. © (2006-03-09 17:15) [4]book.itep.ru
← →
Новочеркасский Волк © (2006-03-09 17:38) [5]Ссылка не пашет!!!
← →
Новочеркасский Волк © (2006-03-11 14:55) [6]Удалено модератором
Примечание: Создание пустых соощений
← →
Новочеркасский Волк © (2006-03-12 22:45) [7]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c
