Передача данных по локальной сети

[zzzzz]

Дело в том, что я никогда не работал с сетью в Delphi, потому сразу извеняюсь если такая тема уже затрагивалась! У меня есть локальная сеть из нескольких компьютеров, на двух из них нужно поставить программы(очень простые):
1) на первом stringgrid в который будут вводиться данные, и button
нажатием на который эти данные должны передаться на другой
компьютер.
2) на втором тоже stringgrid в которые эти данные будут переноситься и
всё!!!
Прошу выложить код или ссылку на подобную тему, всё что я нашёл в поиске по сайту так это то, как реализовать чат, но это немного другое...
Если эта информация имеет значение для кода, так эти две машины не являются серваками сети.
Заранее огромное спасибо!!!

[_SERGEYX_]

всё что я нашёл в поиске по сайту так это то, как реализовать чат, но это немного другое...

Ну, и зря... Чат, написанный при помощи IdUDPServer и IdUDPClient работает быстро и безглючно. Но, если данные нельзя показывать всем клиентам....
Вот здесь лежит исходник программы по обмену сообщениями. Будет работать только в WinXP при включеной службе обмена сообщениями. Я пробовал писать похожую прогу при помощи этой функции:

function NetSend(const sTo, sMessage: string): Boolean;
type
  PNetMessageBufferSend = ^TNetMessageBufferSend;
  TNetMessageBufferSend = function(
    servername: PWideChar;
    msgname: PWideChar;
    fromname: PWideChar;
    buf: PBYTE;
    buflen: DWORD
    ): Integer; stdcall;
var
  wMessage, wTo: PWideChar;
  i, hLib: Integer;
  NetMessageBufferSend: TNetMessageBufferSend;
begin
  Result := False;
  hLib := LoadLibrary('NetApi32.dll');
  if hlib > 0 then
  try
    @NetMessageBufferSend := GetProcAddress(hLib, 'NetMessageBufferSend');
    if @NetMessageBufferSend <> nil then
    begin
      wMessage := CoTaskMemAlloc((Length(sMessage) + 1) * sizeof(WideChar));
      try
        wTo := CoTaskMemAlloc((Length(sTo) + 1) * sizeof(WideChar));
        try
          StringToWideChar(sMessage, wMessage, Length(sMessage) + 1);
          StringToWideChar(sTo, wTo, Length(sTo) + 1);
          i := NetMessageBufferSend(nil, wTo, nil, PBYTE(wMessage),
            (Length(sMessage) + 1) * sizeof(WideChar));
          Result := i = ERROR_SUCCESS;
          if not Result then
            MessageBox(GetForegroundWindow, 'Сообщение не отправлено.', nil,
              $1010);
        finally
          CoTaskMemFree(wTo);
        end;
      finally
        CoTaskMemFree(wMessage);
      end;
    end
    else
      MessageBox(GetForegroundWindow,
        'Функция NetMessageBufferSend не обнаружена.', nil, $1010);
  finally
    FreeLibrary(hLib);
  end
  else
    MessageBox(GetForegroundWindow, 'NetApi32.dll не загружена.', nil, $1010);
end;

... но чат работал лучше.

[ser_joy]

вот тебе готовая програма! скачай и не парся!
http://depositfiles.com/files/xnvzz0q9e