| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сокеты вопрос!!! [D7, WinXP]

LOLUIII/E ©   (2009-01-29 22:46:00) 

в общем есть клиент прога есть сервер ,в клиенте много едитов заполняем их жмем отправить оно летит на севрер оттуда все должно расскалсифицироваться с каждого едита и в бд засунуться именно не в разнооброс а то есть ли в клиенте едиты там для имени фамилии ,то и в бд то что в каждом едите должно вставать в свою ячейку то есть имя в имя ,фамилия в фамилию...воть как в основном сделать классификацию того че отправлятть?

---

RGV   (2009-02-02 07:11:00) [1]

и ксати после table1.open нужно добавить table1.Append; а перед table1.close нужно добавить table1.Post; ну кароче смысл ти понял... надеюсь... )

---

RGV   (2009-02-02 07:02:00) [2]

ой забыл добавить после i:=0 нужно написать For n:=1 to length(msg) do

---

RGV   (2009-02-02 07:00:00) [3]

procedure TForm1.Send;
var
 msg:string;
begin
  msg:=edit1.text+#9+edit2.text+#9+Edit3.text.... и так далее....+#9;
  try
    ClientSocket1.Socket.SendText(msg);
  except
  end;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 msg,s:string;
 n,i:integer;
begin
 msg:=socket.ReceiveText;
 if msg<>'' then
 begin
   if not table1.Active then
   try
     table1.Open;
   except
     exit;
   end;
   i:=0;
   if msg[n] <> #9 then s:=s+msg[n] else
   begin
     try
       table1.Fields.Fields[i].AsString:=s;
     except
     end;
     s:='';
     inc(i);
   end
   table1.Close;
 end;
end;
примерно так

---

Slym   (2009-01-30 17:56:00) [4]

ключевое слово - "Протокол"...
от простого
Field1=Value1
Field2=Value2
до модного
<Proto>
<Field1 Type="String">Value1</Field1>
<Field2 Type="String">Value1</Field2>
</Proto>

---

Сергей М.   (2009-01-29 22:50:00) [5]

$5000

---

Наверх