Помогите создать чат на Delphi

[Эльф]

у мя существует в подъезде локальная сеть, и мне нужно написать чат для этой сети, буду вам очень признателен за помощь!!!

[VDLab]

не проще ли использовать готовый? таких программ сейчас навалом.
если все же хочется позаморачиваться самому, используй компонент, где то видел такие, как найду, кину ссылку

[Simply-Art]

Если ты используешь delphi 7 то на вкладках Indy Client и Indy Servers компоненты IdUDPClient и IdUDPServer. C их помощью можно сделать локальный чат. Потом для приёма надо написать

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
 StringFormatedStream: TStringStream;
 s: String;
begin
 StringFormatedStream := TStringStream.Create('');
 StringFormatedStream.CopyFrom(AData, AData.Size);
 Memo1.Text:=(StringFormatedStream.DataString);// полученый текст
 {GroupBox2.Caption:='Полученый текст от '+ABinding.PeerIP; // id отправилеля}
 ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
 StringFormatedStream.Free;
end;

А для отправки IdUDPClient1.Send('Текст типа String');

[X=Vitamin=X]

Используй компоненты TServerSocket и TClientSocket.
Если хош чет простенькое написать то можна ограничится методом Socket.SendText(); А если с примочками то используй потоки Socket.SendStream();
Все просто и понятно до безобразия, главное желание!!!

[AVer]

Vitamin прав. Самое простое это исполозовать TServerSocket и TClientSocket. Если не нашел их в палитре, добавь пакет $(DELPHI)\bin\dclsockets70.bpl. Если нужна помощь - пиши, есть наработки.

[-=Alex=-]

А я вот хотел спросить: можна как нить смайлик к передаваемому тексту присабачить?

[Vadim]

Windows socket error: Этот хост неизвестен (11001), on API 'ASync LookUP' Выдает ошибку что с этим делать. Мне так кажется что это возникает потому что у меня нет внешнего IP и он имеет вид 10.10.3.14, прально я думаю ?

[-=Alex=-]

А че если кинуть в общий доступ текстовый документ , а программа будет брать его от туда и отображать отправленный текст?

[Alar]

Вообще можно использовать image, просто в родителях у него указать форму, в которой текст находится.

[-=Alex=-]

Я создаю Image, делаю его родителем RichEdit но текст посля этого вроде бы как печатается, но его не видно.И ещё вопрос: можно ли сохранить текстовый файл, при открытии которого в нём были смайлики (имеющиеся на компе)