| SASH |
 Отправлено: 30.05.2003, 09:07 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 58
|
Ребята задача такая: роботая с программой нам необходимо по нажатию клавиши, например, "Сервер" переписать несколько файлов на сервер.
Подскажите пожалуйста как это можно сделать? |
|
| Anry |
| Отправлено: 30.05.2003, 11:42 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 56
|
Опиши подробней суть задачи, как ты это видишь в своем понимании. Не совсем понятно, что именно ты хочешь. 
Отредактировано Anry — 30 May 2003, 11:43
|
|
| SASH |
| Отправлено: 30.05.2003, 11:56 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 58
|
Имеется некий файл порождающийся программой в результате ее работы. Необходимо этот файл копировать на сервер через какой — то промежуток времени не удаляя этот файл.
Можно сделать и ручным копированием, т. е. нажимаем на кнопку, например, Сервер и производим копирование. |
|
| Admin |
| Отправлено: 30.05.2003, 12:36 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
| QUOTE | Необходимо этот файл копировать на сервер через какой — то промежуток времени не удаляя этот файл.
|
Как это копировать, не удаляя ?
Копировать с другим именем ?
А старый переименовавать или дописывать в него ?
----
Ну так копируйте, кто мешает ?
Расшарьте диск на сервере и копируйте на сервер в нужную папку.
Функции:
function CopyFileTo(const Source: string; const Destination: string): Boolean;
procedure CopyFile(const FileName, DestName: string; ProgressControl: TControl);
Unit
FileUtil
Declaration
procedure CopyFile(const FileName, DestName: string; ProgressControl: TControl);
Description
Функция предназначена для копирования файла FileName в файл с именем DestName. Если параметр ProgressControl содержит значение, отличное от NULL, то элемент управления, заданный этим параметром, (например, TGauge в 16-битной версии или TProgressBar в Win32) будет отображать процесс копирования файла.
Пример:
| CODE |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// диск F — сетевой расшаренный на сервере
CopyFile("C:\\PDOXUSRS.NET", "F:\\test\\PDOXUSRS.NET", NULL);
}
|
|
|
