| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
DemoS
Гость
|
 Добавлено: Сб Ноя 15, 2003 11:36 am
Заголовок сообщения: Сетевое взаимодействие |
 |
|
Здоровенько, народ!
Возникла такая вот проблемка:
Надо прогу накатать на Дельфях, которая обеспечивает обмен текстовыми сообщениями между компами, вот, а я хрен знает как это все делать. Подскажите пожалуйста где об энтом можно почитать или где это можно найти.
Заранее благодарен доброму люду!!!!!
dshelp2003@mail.ru |
|
| Вернуться к началу |
|
 |
c0d3x
dude
Зарегистрирован: 01.09.2003
Сообщения: 64
|
Добавлено: Сб Ноя 15, 2003 11:51 am
Заголовок сообщения: |
|
|
http://delphi.mastak.ru/articles/sockets/index.html
вот, пользуйся на здоровье 
все четко, подробно так написано ...
на этом же сайте можешь скачать готовый исходник чата ... (я так понял, именно он тебе и нужен)
_________________
Не откладывай на завтра то, что уже вчера отложил на сегодня |
|
| Вернуться к началу |
|
|
dinggo
moder
Зарегистрирован: 22.01.2003
Сообщения: 483
|
Добавлено: Сб Ноя 15, 2003 6:26 pm
Заголовок сообщения: |
|
|
| c0d3x писал(а): |
на этом же сайте можешь скачать готовый исходник чата ... (я так понял, именно он тебе и нужен) |
Похоже не понял ему требуется прога типа аськи или messenger
_________________
ученье-свет, а не ученье-чуть свет и на работу |
|
| Вернуться к началу |
|
|
c0d3x
dude
Зарегистрирован: 01.09.2003
Сообщения: 64
|
Добавлено: Сб Ноя 15, 2003 6:43 pm
Заголовок сообщения: |
|
|
хм. тада и мне такое надо
хотя помоему написать программу обмена текстовыми сообщениями - это типа чат. А чат строится на основе сокетов. Что я и сказал ...
_________________
Не откладывай на завтра то, что уже вчера отложил на сегодня |
|
| Вернуться к началу |
|
|
dinggo
moder
Зарегистрирован: 22.01.2003
Сообщения: 483
|
Добавлено: Сб Ноя 15, 2003 9:14 pm
Заголовок сообщения: |
|
|
| c0d3x писал(а): | хм. тада и мне такое надо
хотя помоему написать программу обмена текстовыми сообщениями - это типа чат. А чат строится на основе сокетов. Что я и сказал ... |
c0d3x, читай внимательней
обмен текстовыми сообщениями МЕЖДУ компами
а не сервер-клиент, это немного разные вещи
_________________
ученье-свет, а не ученье-чуть свет и на работу |
|
| Вернуться к началу |
|
|
Crack
advanced
Зарегистрирован: 29.11.2003
Сообщения: 29
|
Добавлено: Вт Dec 23, 2003 3:42 pm
Заголовок сообщения: Люди помогите... |
|
|
Помогите с написанием проги! Нужна прога которая будет показывать удалённый рабочий стол другого кома(типа такая фишка есть в ХР), прога состоит из двух частей: сервера и клиента. Должно работать без тормозов! Заранее спасибо!  |
|
| Вернуться к началу |
|
|
АРТИК
Гость
|
Добавлено: Вт Ноя 02, 2004 4:35 am
Заголовок сообщения: Помогииите! |
|
|
| Люди, я хочу скачать готовый серьезный чат, прошу, дайте ссылочку на сайт, с которого это можно сделать. Заранее благодарен. |
|
| Вернуться к началу |
|
|
n0.13g41
GOLD visitor
Зарегистрирован: 12.02.2004
Сообщения: 392
|
Добавлено: Вт Ноя 02, 2004 9:03 am
Заголовок сообщения: |
|
|
www.mirc.com  чем не чат?
_________________
 |
|
| Вернуться к началу |
|
|
ПАНК
Гость
|
Добавлено: Пт Ноя 05, 2004 4:07 pm
Заголовок сообщения: КОРОЛЬ И ШУТ ПРЕТ!!! |
|
|
КИШ ЛУЧШЕ ВСЕХ!!! ДА ЗДРАВСТВУЕТ ПАНК-РОК!!! ХОООЙ!!!  |
|
| Вернуться к началу |
|
|
Dark_Ghost
moder
Зарегистрирован: 19.01.2004
Сообщения: 498
Откуда: берутся дети?
|
Добавлено: Пт Ноя 05, 2004 5:35 pm
Заголовок сообщения: Re: КОРОЛЬ И ШУТ ПРЕТ!!! |
|
|
| ПАНК писал(а): | | КИШ ЛУЧШЕ ВСЕХ!!! ДА ЗДРАВСТВУЕТ ПАНК-РОК!!! ХОООЙ!!! |
1. немного оффтоп.. неужели панки тупые пошли..
2. киш - панко-говно и не надо мешать ЭТО с панк-роком, ок?
_________________
Плохому хакеру логи мешают.
[EXT] |
|
| Вернуться к началу |
|
|
Sh3p4rD
Newbie
Зарегистрирован: 06.05.2004
Сообщения: 11
Откуда: россиянин...
|
Добавлено: Вт Ноя 09, 2004 3:28 am
Заголовок сообщения: |
|
|
| Цитата: | | Помогите с написанием проги! Нужна прога которая будет показывать удалённый рабочий стол другого кома(типа такая фишка есть в ХР), прога состоит из двух частей: сервера и клиента. Должно работать без тормозов! Заранее спасибо! |
ну не знаю как удалённый, но у меня в локалке стопудово форцало:
это для сервака
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
cmd: string;
i: integer;
bmp: TBitmap;
DC: HDC;
ms: TMemoryStream;
begin
cmd:=Socket.ReceiveText;
if cmd='rabstol' then //надо от клиента послать команду rabstol
begin
bmp:=TBitmap.Create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0); //Дескpиптоp экpана
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
ms:= TMemoryStream.Create;
try
// Получаем данные на передачу.
bmp.SaveToStream(ms);
//Image1.Picture.Bitmap.SaveToStream(ms);
ms.Position:= 0;
// Добавляем длину данных, чтобы клиент знал, сколько данных будет передано
// Добавляем #0 , чтобы можно было определить, где заканчивается информация о размере.
Socket.SendText(IntToStr(ms.Size) + #0);
// Посылаем его.
Socket.SendStream(ms);
except
// Итак, осталось освободить поток, если что-то не так.
ms.Free;
end;
ReleaseDC(0, DC);
end;
end;
это для клиента:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s, sl: string;
begin
s:= Socket.ReceiveText;
// Если мы не в режиме приёма:
if not Reciving then
begin
// Теперь нам необходимо получить длину потока данных.
SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator
StrLCopy(@sl[1], PChar(s), Length(sl)-1);
DataSize:= StrToInt(sl);
Data:= TMemoryStream.Create;
// Удаляем информацию о размере из данных.
Delete(s, 1, Length(sl));
Reciving:= true;
end;
// Сохраняем данные в файл, до тех пор, пока не получим все данные.
try
Data.Write(s[1], length(s));
if Data.Size = DataSize then
begin
Data.Position:= 0;
Image1.Picture.Bitmap.LoadFromStream(Data); //всё это дело выводим на имэдж1
Data.Free;
Reciving:= false;
Socket.Close;
end;
except
Data.Free;
end;
end;
_________________
есть ли жизнь в рл? |
|
| Вернуться к началу |
|
|
AJ
old
Зарегистрирован: 17.08.2004
Сообщения: 69
Откуда: network
|
Добавлено: Чт Ноя 11, 2004 4:05 pm
Заголовок сообщения: |
|
|
UDP Foreva, но TCP все равно надежнее 
Изучайте сокеты товарищи.....
_________________
icq=9127222 |
|
| Вернуться к началу |
|
|
|
