Форум: "Сети";
Текущий архив: 2011.01.09;
Скачать: [xml.tar.bz2];

Вниз

Сокеты вопрос!!!   Найти похожие ветки 

← →
LOLUIII/E   (2009-01-29 22:46) [0]

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

---

← →
Сергей М. ©   (2009-01-29 22:50) [1]

$5000

---

← →
Slym ©   (2009-01-30 17:56) [2]

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

---

← →
RGV ©   (2009-02-02 07: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;
примерно так

---

← →
RGV ©   (2009-02-02 07:02) [4]

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

---

← →
RGV ©   (2009-02-02 07:11) [5]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2011.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.004 c