|
Вопрос # 4 948/ вопрос открыт / |
|
Здравствуйте, эксперты!
возникла проблема, не могу организовать передачу информации от клиента к серверу, что именно передавать и как заполнять не знаю, что должно быть на сервере а что на клиенте тоже не пойму, навыков в программировании мало, а требуют много (( прошу помочь как предатьи заполнить информацию
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим-
-
- procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
- Socket: TCustomWinSocket);
- begin
- S_stroka := Socket.ReceiveText;
- unit2.Form2.Memo1.Lines.Add(S_stroka);
- S_komanda := copy(S_stroka,1,3);
- S_stroka := copy(S_stroka,4,length(S_stroka));
- ha1:=Socket.ReceiveText;
-
- if S_Komanda = 'reg' then P_RegUser;
-
- if S_Komanda = 'ppr' then
- begin
- while S_stroka <> '' do
- begin
- form4.ListBox1.Items.Add(copy(S_stroka,1,pos('#',S_stroka)-1));
- S_stroka := copy(S_stroka,pos('#',S_stroka)+4,length(S_stroka));
- end;
- end;
-
-
- if S_Komanda = 'inf' then
- begin
- form5.Memo1.Lines.Clear;
- form5.Memo1.Lines.Add(S_stroka)
- end;
-
- if S_komanda = 'otz' then
- begin
- form4.listBox1.Items.Clear;
- if form1.UserList.ItemIndex <> -1 then
- form1.serversocket1.Socket.Connections[form1.userList.ItemIndex].
- SendText('ppr');
- end;
- if S_Komanda = 'sof' then begin
- form9.ListBox1.Items.Add(S_stroka);
- end;
- if S_Komanda = 'har' then begin
- //form10.DevicesTreeView.Items.AddObject(S_hards);
- form10.ListBox1.Items.Add(S_stroka);
- end;
-
-
 |
Вопрос задал: Dimitriy (статус: Посетитель)
Вопрос отправлен: 23 января 2011, 06:41
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
