Связь между двумя ОС

[Яр|/||< (^_^)]

Насколько реально связать мой компьютер (Windows XP) с виртуальным компьютером VirtualBox (XP). При помощи делфи. Или для этого нужен какойто язык ? (Яв, СИ++ ...)

[bill_gates]

Можно настроить сеть между нормальным компом и виртуальным. А там дело техники: Заюзать компоненты ClientSocket и ServerSocket. Можно написать прогу для виртуалки с ServerSocket'ом который будет всегда включен, для реальной машины с ClientSocket'ом и с реального компа на виртуальный пересылать по TCP команды, а виртмашина будет их исполнять. По-моему эта идея вполне осуществима на Delphi 6 (В новых версиях уже другие компоненты, я в них еще не разобрался. Хотя, можно и на других язаках: C++, по-моему Java.

[Яр|/||< (^_^)]

На делфи можно а можешь по подробнее?

[bill_gates]

Пример на Delphi 6 таков
Сервер:
Создаем компонент ServerSocket. Порт выбираем четырех-пятизначный, незанятый на виртмашине. Например 5555. Обрабатываем событие onClientRead

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//Если принятый текст: shutdown
if Socket.ReceiveText='shutdown' then begin
//то запускаем прогу shutdown с параметрами -s -t 1
ShellExecute(Application.Handle,'open','C:\Windows\system32\shutdown.exe','-s -t 1','',SW_NORMAL);
end;
end;

Ну с функцией запуска программ я думаю ты разберешься, только в uses юнита добавь shellapi.

А в момент активации формы включи сокет, а то соединение не пойдет

procedure TForm1.FormActivate(Sender: TObject);
begin
ServerSocket1.Open;
end;

Клиент:
Создаем ClientSocket и Кнопку. В клиентСокет прописываем параметры:

Address: IP виртмашины
Host: Имя машины в сетке (если задал ip, можно не писать)
Port: 5555

При активации формы:

procedure TForm1.FormActivate(Sender: TObject);
begin
//Врубаем сокет и соединяемся
ClientSocket1.Open;
end;

По нажатию кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
//Шлем команду shutdown
ClientSocket1.Socket.SendText('shutdown');
end;

Здесь описано в деталях, как программировать серверсокет
http://www.delphimaster.ru/articles/socksrv/

Здесь описано, как программировать клиентсокет
http://www.delphimaster.ru/articles/sockets/index.html

Передавать файлы можно этим способом, рекомендую
http://www.realcoding.net/article/view/187

Удачи. Если что не получается пиши в личку

[goblinyara]

хмм.. могу добавить лишь одно - компоненты TServerSocket и TClientSocket есть во всех версиях дэлфи... просто начиная с 7 версии их убрали со стандартной палитры компонент.... всё,что нужно - это устаносить пакет dclsocketXX.bpl (где XX - номер версии дэлфи), и тогда на вкладке Internet появятся вышеозвученные компоненты

[bill_gates]

Сообщение от goblinyara

всё,что нужно - это устаносить пакет dclsocketXX.bpl (где XX - номер версии дэлфи), и тогда на вкладке Internet появятся вышеозвученные компоненты

Спасибо за инфу. Надо поискать.

[Stilet]

На делфи можно а можешь по подробнее?

Никакое ДЕлфи тебе не поможет пока ты в свойствах VBox не создашь сеть. Хотя есть Virtual Shared Folder, и возможно они работают через Pipe. но это еще проверять надо.

[Яр|/||< (^_^)]

А как её создать ?

[bill_gates]

Зайди в свойства виртмашины, потом Сеть->Адаптер 1->Помечаем галку "Включить сетевой адаптер" и тип подключения ставим сетевой мост. Жмем OK. Потом в компе идешь пуск->панель управления->сетевые подключения->жмем правой кнопкой по VirtualBox Host Only Network->Свойства->Протокол интернета TCP\IP->настройка->Использовать следующий IP-адрес->IP-адрес пишешь 192.168.0.1->маску подсети 255.255.255.0. В виртмашине то же самое, только IP-адрес 192.168.0.2