Какие пути решения посоветуете? Использовать socket, tcp, xml или что-то еще интересней и проще? ))
Мысль крутится использовать тип record для сбора данных из таблицы, и попробовать как-то передать значение переменой типа record через socket строкой или еще как-то... а на том конце в такой же тип переменной получить данные...
Вот что я нашел по Stream
Код: Выделить всё
procedure SerializeString(AString:string; AStream:TStream);
var l:integer;
begin
l:=Length(AString);
AStream.Write(l,Sizeof(l));
if l>0 then AStream.WriteBuffer(AString[1],l);
end;
function UnserializeString(AStream:TStream):string;
var l:integer; s:string;
begin
AStream.Read(l,Sizeof(l));
if l>0 then
begin
SetLength(s,L);
AStream.ReadBuffer(s[1],L);
end;
Result:=s;
end;
procedure TForm1.RzButton1Click(Sender: TObject);
var
ms:tstream;
begin
SerializeString('Првиет',ms); // Почему-то ругается что не может сделать запись в Stream... я мало знаю эту тему, но думаю копаю в правильном направлении
end;
Да! Кстати! Ctrl+V реально вставляет!!! ХDD
