Помгите с сообщениями в делфи

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Помгите с сообщениями в делфи

05.03.2006, 03:39

Litvik

Новичок

Регистрация: 04.03.2006

Сообщений: 4

Провел на форуме:
4667

Репутация: 0

Помгите с сообщениями в делфи

Пацаны объясните:
Смарите я на клиенте посылаю серверу цифру 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