![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Дозвон [D6, Win95/98]
saNat © (2003-10-04 20:59:00)
Здр-те. Подскажите пожалуйста, как мне дозвониться своей программой до другого комп-ра и отправить файл. ОЧЧЕНЬ буду рад кусочку исходника.
Заранее спасибо.
С уважением, EVA.
GH@ST (2003-10-22 09:10:00) [1]
А как ты с интернетом соединяешься? Вот точно также и там только телефон другой :0)
saNat (2003-10-22 00:13:00) [2]
to Wic-> оно конечно понятно, но как соединиться то?
Wic (2003-10-11 00:42:00) [3]
1. На компьютере должен быть установлен сервер удаленного доступа
2. Коннектишься
3. Подключаешь сетевой диск
4. Копируешь одним из методов файл по указанному сетевому пути
5. Разрываешь соединение
saNat (2003-10-08 00:10:00) [4]
Быть может, у кого появились идеи на данную тему?
saNat (2003-10-06 12:57:00) [5]
to GH@STв смысле "создаешь соединение ка обычно".
GH@ST (2003-10-06 08:40:00) [6]
Тогда проще создаешь соединение как обычно..а отправка файла на этом сайте написана...тоесть сервер на той стороне (твой) должен быть...передача такая же как в локальной сети..ничем не отличается..
saNat (2003-10-05 21:54:00) [7]
to Novenkij: Нужно написать как в Гипертерминале (zModem). Т.е. из исходных данных - только телефон.
to GH@ST: ну это само сабой... мне интерресн сам процесс дозвона, передачи о отсоединения...
to All: Спасибо за отклики... может ещё у кого какие мысли?...
GH@ST (2003-10-05 09:43:00) [8]
Вопрос очень обьемный..для начала на другом компьютере должен быть у становлен сервер удаленного доступа...
Novenkij (2003-10-05 00:58:00) [9]
Izvenajus za translit, klava glu4it po Russki ne pi4ataet zaraza.
Objasni zada4u konkretnej. Dozvon do 4ego ? do Soketa ? ili do FTP ? ili esso 4ego ?
V lubom slu4ae princip odin i tot ze. Pitae6sa ustanovit soedinenie i esli oblom, to obrabativae6 o6ibku soedinenija i pitae6sa opat, a esli vse OK, to obrobativae6 sobitie onConnect.
Kusok koda - Zmom na Button1 i poka do FTP servera ne dostu4imsa budim pitatsa (Komponent NMFTP1).
procedure TForm1.Button1Click(Sender: TObject);
begin
try
NMFTP1.Connect;
except
Form1.Button1Click(sender);
end;
end;
procedure TForm1.NMFTP1Connect(Sender: TObject);
begin
Form1.Caption := "Connection success";
end;