Пацаны объясните:
Смарите я на клиенте посылаю серверу цифру 1 ПР:
procedure TFrm.knopClick(Sender: TObject);
begin
ClientSocket1.Socket.SendText('1');
end; - правильно!!??
на сервере пишу
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var w:string;
begin
w:=socket.ReceiveText;- чтобы принял!!!???
дальше пишу если принял '1' то выполнил действие
ПРОБЛЕМА:
Пишу я это на серваке
var
a,w: string;
begin
w:=socket.ReceiveText;
if a='1' then
if RadioButton1.Checked=true then b:=MB_Ok;
if RadioButton2.Checked=true then b:=MB_YesNo;
if SpeedButton1.Down=true then c:=0;
if SpeedButton2.Down=true then c:=MB_ICONASTERISK;
a:=StringReplace(edit2.Text,'|',Chr(13),[rfReplaceAll]);
MessageBox(application.handle,PChar(a),PChar(edit1 .Text),
b + c + MB_SYSTEMMODAL); - Это я так думаю
он мне не определяет RadioButton1.Checked,SpeedButton1.Down которые находятся на клиенте
По руски:
мне нужно чтобы я нажал кнопку, сервер получил и показал мегасагу в зависимости какую я иконку поставлю и какие кнопки выберу

Чо-то я написал сам не понял если кто-чё понял ответте
ПЛИИЗЗЗЗ...... Вобщем чтобы кнопки работали как на кнопке "Тест" так и на сервере
Вот исходник если чё кто сможет Скинте на мыло Litvik@list.ru
http://newslm.narod.ru/HELP.rar