Передать данные таблицы через локальную сеть
Добавлено: 15 мар 2011, 09:56
День добрый коллеги! Хочу обратится за советом. Пишу нечто сетевой базы данных. Есть серверная часть и куча клиентов. Используется БД Access через ADO. У всех есть в базе одна и та же таблица с одинаковым набором колонок. Задача стоит - чтоб пользователь, сидя за серверной частью, мог выслать на клиентскую часть в локальной сети значение одной строки таблицы в такую же таблицу у них.
Какие пути решения посоветуете? Использовать socket, tcp, xml или что-то еще интересней и проще? ))
Мысль крутится использовать тип record для сбора данных из таблицы, и попробовать как-то передать значение переменой типа record через socket строкой или еще как-то... а на том конце в такой же тип переменной получить данные...
Вот что я нашел по Stream
Какие пути решения посоветуете? Использовать 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;