Как сделать регестрационную форму в Делфи

@Sagatbekov · Регистрация: 19.02.2015

Author24 — интернет-сервис помощи студентам

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

Пробовал через сокет так но удается только обмен данным только byte(иле integer) а там должно быть и string как это сделать ? у меня не получается на string

Delphi

var
  ServerForm: TServerForm;
  DBC:integer;
  ByteR    :array[0..5] of string;
  len        :byte;
  MS: TMemoryStream;

передаем:

Delphi

ByteR[0]:=edit2.text; //постоянное
ByteR[1]:=edit3.text;
ByteR[2]:=edit4.text;
ByteR[3]:=edit5.text;
ByteR[4]:=edit6.text;
ClientSocket1.Socket.SendBuf(ByteR,5);

принимаем:

Delphi

var
 Buf: pointer;
Size: integer;
   P: ^Byte;
begin
GetMem(Buf, SizeOf(ByteR));
try
 Socket.ReceiveBuf(Buf^, SizeOf(ByteR));
 Move(Buf^, ByteR, SizeOf(ByteR));
 Memo1.Lines.Add(ByteR[0]);
 Memo1.Lines.Add(ByteR[1]);
 Memo1.Lines.Add(ByteR[2]);
 Memo1.Lines.Add(ByteR[3]);
 Memo1.Lines.Add(ByteR[4]);
finally
freeMem(Buf);
end;

Добавлено через 2 часа 39 минут
ладно закройте тему. Походу не кто не знает!

@Immo · 08.07.2015, 11:44

сдлеай пакет данных, и отправляй джейсон

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	08.07.2015, 11:44	2
	сдлеай пакет данных, и отправляй джейсон 0