rst.void.ru
RusH security team
 
 [ Рекомендовано к прочтению ]   [ Поиск ]   [ Регистрация [ Профиль ]   [ Войти и проверить личные сообщения ]   [ Вход

Сетевое взаимодействие

 
Начать новую тему   Ответить на тему    Список форумов rst.void.ru -> Delphi
Предыдущая тема :: Следующая тема  
Автор Сообщение
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

вот, пользуйся на здоровье Smile
все четко, подробно так написано ...
на этом же сайте можешь скачать готовый исходник чата ... (я так понял, именно он тебе и нужен)
_________________
Не откладывай на завтра то, что уже вчера отложил на сегодня
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
dinggo
moder


Зарегистрирован: 22.01.2003
Сообщения: 483

СообщениеДобавлено: Сб Ноя 15, 2003 6:26 pm
    Заголовок сообщения:
Ответить с цитатой

c0d3x писал(а):

на этом же сайте можешь скачать готовый исходник чата ... (я так понял, именно он тебе и нужен)

Похоже не понял Smile ему требуется прога типа аськи или messenger
_________________
ученье-свет, а не ученье-чуть свет и на работу
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
c0d3x
dude


Зарегистрирован: 01.09.2003
Сообщения: 64

СообщениеДобавлено: Сб Ноя 15, 2003 6:43 pm
    Заголовок сообщения:
Ответить с цитатой

хм. тада и мне такое надо Smile

хотя помоему написать программу обмена текстовыми сообщениями - это типа чат. А чат строится на основе сокетов. Что я и сказал ...
_________________
Не откладывай на завтра то, что уже вчера отложил на сегодня
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
dinggo
moder


Зарегистрирован: 22.01.2003
Сообщения: 483

СообщениеДобавлено: Сб Ноя 15, 2003 9:14 pm
    Заголовок сообщения:
Ответить с цитатой

c0d3x писал(а):
хм. тада и мне такое надо Smile

хотя помоему написать программу обмена текстовыми сообщениями - это типа чат. А чат строится на основе сокетов. Что я и сказал ...

c0d3x, читай внимательней
обмен текстовыми сообщениями МЕЖДУ компами
а не сервер-клиент, это немного разные вещи
_________________
ученье-свет, а не ученье-чуть свет и на работу
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Crack
advanced


Зарегистрирован: 29.11.2003
Сообщения: 29

СообщениеДобавлено: Вт Dec 23, 2003 3:42 pm
    Заголовок сообщения: Люди помогите...
Ответить с цитатой

Помогите с написанием проги! Нужна прога которая будет показывать удалённый рабочий стол другого кома(типа такая фишка есть в ХР), прога состоит из двух частей: сервера и клиента. Должно работать без тормозов! Заранее спасибо! Very Happy
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
АРТИК
Гость





СообщениеДобавлено: Вт Ноя 02, 2004 4:35 am
    Заголовок сообщения: Помогииите!
Ответить с цитатой

Люди, я хочу скачать готовый серьезный чат, прошу, дайте ссылочку на сайт, с которого это можно сделать. Заранее благодарен.
Вернуться к началу
n0.13g41
GOLD visitor


Зарегистрирован: 12.02.2004
Сообщения: 392

СообщениеДобавлено: Вт Ноя 02, 2004 9:03 am
    Заголовок сообщения:
Ответить с цитатой

www.mirc.com Shocked чем не чат?
_________________
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора ICQ Number
ПАНК
Гость





СообщениеДобавлено: Пт Ноя 05, 2004 4:07 pm
    Заголовок сообщения: КОРОЛЬ И ШУТ ПРЕТ!!!
Ответить с цитатой

КИШ ЛУЧШЕ ВСЕХ!!! ДА ЗДРАВСТВУЕТ ПАНК-РОК!!! ХОООЙ!!! Twisted Evil
Вернуться к началу
Dark_Ghost
moder


Зарегистрирован: 19.01.2004
Сообщения: 498
Откуда: берутся дети?

СообщениеДобавлено: Пт Ноя 05, 2004 5:35 pm
    Заголовок сообщения: Re: КОРОЛЬ И ШУТ ПРЕТ!!!
Ответить с цитатой

ПАНК писал(а):
КИШ ЛУЧШЕ ВСЕХ!!! ДА ЗДРАВСТВУЕТ ПАНК-РОК!!! ХОООЙ!!! Twisted Evil

1. немного оффтоп.. неужели панки тупые пошли..
2. киш - панко-говно и не надо мешать ЭТО с панк-роком, ок?
_________________
Плохому хакеру логи мешают.

[EXT]
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора ICQ Number
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;
_________________
есть ли жизнь в рл?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение ICQ Number
AJ
old


Зарегистрирован: 17.08.2004
Сообщения: 69
Откуда: network

СообщениеДобавлено: Чт Ноя 11, 2004 4:05 pm
    Заголовок сообщения:
Ответить с цитатой

UDP Foreva, но TCP все равно надежнее Wink
Изучайте сокеты товарищи.....
_________________
icq=9127222
Вернуться к началу
Посмотреть профиль Отправить личное сообщение ICQ Number
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов rst.void.ru -> Delphi Часовой пояс: GMT +3:00
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Powered by Invision Power Board © 2001-2004 IPB