Сокеты вопрос!!!

← →
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;
примерно так

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

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

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