Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.039 c
1-1140507304
apl
2006-02-21 10:35
2006.03.26
Про ферймы


11-1122956597
Кудрявцев Павел
2005-08-02 08:23
2006.03.26
Базы данных и KOL


15-1141674936
Piter
2006-03-06 22:55
2006.03.26
Поиск подстроки в в JavaScript


15-1141626957
DimonS
2006-03-06 09:35
2006.03.26
Старенькая игрушка...


15-1141126824
Сатир
2006-02-28 14:40
2006.03.26
Получение логина и айпи юзера





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский