Чат на Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Чат на Delphi - 2008-03-13 16:22:13.360000
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
Прив всем)
плиз ,скиньте исходники чата,только чтоб использовало только стандартные библиотеки делфи
больше уточнять не буду,скиньте- я уже выберу
БОЛЬШОЕ СПАСИБО!ОЧЕНЬ НАДО!
|
|
|
|
|
RE: Чат на Delphi - 2008-03-13 16:41:01.926666
|
|
|
TPOYAN
Сообщений: 26
Оценки: 0
Присоединился: 2007-11-09 22:54:46.533333
|
……………………………….
type
TForm1 = class(TForm)
Memo1: TMemo;{чат}
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
Edit1: TEdit;{адрес сервака}
Edit2: TEdit; {ник}
SpeedButton1: TSpeedButton;
Edit3: TEdit; {сообщение}
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{приём сообщения}
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
StringFormatedStream:TStringStream;
s:string;
begin
StringFormatedStream:=TStringStream.Create('');
memo1.lines.add(socket.ReceiveText+' '+stringFormatedStream.DataString);
stringFormatedstream.free;
end;
{отправка}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
clientsocket1.Host:=edit2.text;
clientsocket1.Active:=true;
Clientsocket1.socket.sendtext(Edit3.Text+ ': ' +edit1.text);
edit1.clear;
end;
з.ы: незабуть скинуть на форму компонент
ClientSocket и ServerSocket они находятся на вкладке Internet
|
|
|
|
|
RE: Чат на Delphi - 2008-03-13 16:57:59.086666
|
|
|
TPOYAN
Сообщений: 26
Оценки: 0
Присоединился: 2007-11-09 22:54:46.533333
|
Скачать исходник можеш здесь
|
|
|
|
|
RE: Чат на Delphi - 2008-03-13 21:40:43.413333
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
мне надо чат посложнее,я такой написал и теперь надо улучшить,а я не знаю как.Улучшения по типу:передача файлов,цвет ника,сообщения,смайлы и тп
и надо,чтоб сервер/клиент были отдельно,а не вместе,те одна программа-сервер,вторая-клиент
Но все равно спасибо,что откликнулся!если можешь помоги и с этим.
И сорри,что не уточнил сразу.
И еще надо ,чтобы чат работал по протоколу TCР.Хотя посмотрел бы и другие ,но нужен именно ТСП.
|
|
|
|
|
RE: Чат на Delphi - 2008-03-14 12:16:00.226666
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
в хакере писали когда-то,но нужны исходники,да и многие писали чат-для лигбеза сетевого программирования
поэтому плиз скиньте-очень надо,заранее спс!
|
|
|
|
|
RE: Чат на Delphi - 2008-03-15 03:14:27.316666
|
|
|
pepper19
Сообщений: 64
Оценки: 0
Присоединился: 2007-04-27 17:59:57.920000
|
у меня есть, НО
писался года 2 назад, когда я был еще…
ну хз он работает, там куча всего, анимированное смайло, НО И КУЧА сторонних компонентов (хотя половину можно легко убрать : ) )
если интересно - в приват
|
|
|
|
|
RE: Чат на Delphi - 2008-03-15 13:13:53.650000
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
СПС!
Если кто ещё,то тоже буду рад
|
|
|
|
|
RE: Чат на Delphi - 2008-03-17 23:41:56.320000
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
извинте за назойливость,но никто не программировал разве чаты или все жадные такие?)
мне для зачета надо,я не собираюсь свой копирайт ставить….
или все сразу си учили?!
|
|
|
|
|
RE: Чат на Delphi - 2008-03-18 16:10:05.273333
|
|
|
TPOYAN
Сообщений: 26
Оценки: 0
Присоединился: 2007-11-09 22:54:46.533333
|
www.google.com
Глянь в гугле.Там точно найдёш
|
|
|
|
|
RE: Чат на Delphi - 2008-03-18 18:08:10.590000
|
|
|
Kolan4iK
Сообщений: 258
Оценки: 0
Присоединился: 2007-09-28 20:23:45.553333
|
pepper19 кинь мне тоже в личку !! ЧАТ пожалусто
|
|
|
|
|
RE: Чат на Delphi - 2008-03-18 19:04:05.666666
|
|
|
Sinay
Сообщений: 28
Оценки: 0
Присоединился: 2008-03-13 16:14:56.130000
|
да я искал в гугле-все не то….
переделаю пока некоторые-посмотрю
но если у кого будет ,то плиз кидайте!
|
|
|
|
|
RE: Чат на Delphi - 2008-03-19 20:29:34.960000
|
|
|
b[e]nder
Сообщений: 193
Оценки: 0
Присоединился: 2008-01-29 07:22:07.950000
|
чтобы передавать картинки используй потоки
|
|
|
|
|
RE: Чат на Delphi - 2010-10-14 08:41:37.886666
|
|
|
Alex_Bios
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-14 08:35:00.010000
|
как сделать «Чат» реализующую функцию передачи сообщений между 2 (и более пользователями), передача сообщений в сети осуществляется в зашифрованном виде (т.е. отправитель вводит ключ и вводит исходное сообщение, программа шифрует его по выбранному алгоритму и отправляет получателю. Получатель в свою очередь получает зашифрованное сообщение и вводит ключ для его дешифрации)! С шифром Виженера
Очень надо! Заранее спасибо
|
|
|
|
|
RE: Чат на Delphi - 2010-10-14 10:22:02.590000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
ЧТо конкретно не получается?
|
|
|
|
|
RE: Чат на Delphi - 2010-10-15 11:20:12.400000
|
|
|
Alex_Bios
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-14 08:35:00.010000
|
не знаю как добавить в чат Шифр Виженера
|
|
|
|
|
RE: Чат на Delphi - 2010-10-15 12:49:20.493333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Что именно не получается в добавлении? Алгоритм шифрования реализовать не можешь?
http://ru.wikipedia.org/wiki/Шифр_Виженера
|
|
|
|
|
RE: Чат на Delphi - 2010-10-21 08:22:27.166666
|
|
|
Alex_Bios
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-14 08:35:00.010000
|
что то исходник не скачивается, перезалей!
|
|
|
|
|
RE: Чат на Delphi - 2010-10-22 11:11:43.203333
|
|
|
Alex_Bios
Сообщений: 4
Оценки: 0
Присоединился: 2010-10-14 08:35:00.010000
|
quote:
_SaZ_ А можешь исходник кинуть пожалуйста, мне просто на зачет а времени просто нет(((
|
|
|
|
|
RE: Чат на Delphi - 2010-10-23 17:34:24.166666
|
|
|
Davey
Сообщений: 45
Оценки: 0
Присоединился: 2010-03-24 14:51:57.760000
|
Специально для халявщиков, которые ничего не учат, в папочке Demos есть пример NetChat…
Что то посложнее? Что конкретно не получается при смене цвета ника и какие конкретно проблемы со смайлами? //Сказал капитан намекая на RichEdit? ^____^
|
|
|
|
|
RE: Чат на Delphi - 2010-12-02 15:54:00.946666
|
|
|
Duss
Сообщений: 72
Оценки: 0
Присоединился: 2009-10-12 12:48:18.036666
|
А как реализовать чат не имея выделенного IP?
Все примеры показывают передачу сообщений в одну сторону (на сервер), но не где не описано как серверу ответить клиенту? Да, можно также отправить новое сообщение, но, если у клиента нет выделенного IP? Как серверу отправить сообщение в этом случае?
|
|
|
|
|
RE: Чат на Delphi - 2010-12-02 16:34:58.753333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Отправлять на текущий IP клиента. Или у тебя IP меняется каждые несколько минут?
|
|
|
|
|
|
