Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Вниз

Копирование файлов   Найти похожие ветки 

 
nord489   (2007-06-18 16:08) [0]

Есть фаил MS Access. Нужно скопировать его из программы, т.е. при нажатии на кнопку "Сохранить" должен открыться проводник, выбирается место сохранения, и происходит копирование файла в выбранное место.


 
iXT ©   (2007-06-18 16:18) [1]

И в каком месте проблемы?


 
Anatoly Podgoretsky ©   (2007-06-18 16:26) [2]

> nord489  (18.06.2007 16:08:00)  [0]

Это техническое задание


 
iXT ©   (2007-06-18 16:27) [3]

> Anatoly Podgoretsky ©   (18.06.07 16:26)

Это вопрос или утверждение? :)


 
nord489   (2007-06-18 16:27) [4]

Использую ShellTreeView для выбора места назначения.
var
a: string;
begin
a:= ??? ; //что присвоить переменной a?
copyfile("c:1.mdb",a,true)
end;


 
Anatoly Podgoretsky ©   (2007-06-18 16:31) [5]

> iXT  (18.06.2007 16:27:03)  [3]

Это констатация


 
Плохиш ©   (2007-06-18 16:32) [6]


> a:= ??? ; //что присвоить переменной a?

The CopyFile function copies an existing file to a new file.

BOOL CopyFile(

   LPCTSTR lpExistingFileName, // pointer to name of an existing file
   LPCTSTR lpNewFileName, // pointer to filename to copy to
   BOOL bFailIfExists  // flag for operation if file exists
  );


Parameters

lpExistingFileName

Points to a null-terminated string that specifies the name of an existing file.

lpNewFileName

Points to a null-terminated string that specifies the name of the new file.


bFailIfExists

Specifies how this operation is to proceed if a file of the same name as that specified by lpNewFileName already exists. If this parameter is TRUE and the new file already exists, the function fails. If this parameter is FALSE and the new file already exists, the function overwrites the existing file and succeeds.

И что тут не понятно?


 
Anatoly Podgoretsky ©   (2007-06-18 16:32) [7]

> nord489  (18.06.2007 16:27:04)  [4]

Пеоеменной надо назначить место назначения


 
nord489   (2007-06-18 16:41) [8]

Понятно что место назначения, но как это сделать с помощью ShellTreeView?

a:=ShellTreeView1.?;


 
iXT ©   (2007-06-18 16:52) [9]

А я бы юзал SelectDirectory


 
Плохиш ©   (2007-06-18 17:00) [10]


> iXT ©   (18.06.07 16:52) [9]
> А я бы юзал SelectDirectory

Может для него ShellTreeView легче на форму кинулось, ну а читать описание киданутых компАнентов - не царское это дело, а то для чего мы тута сидим :-)


 
nord489   (2007-06-18 17:04) [11]

Удалено модератором


 
Плохиш ©   (2007-06-18 17:10) [12]


> nord489   (18.06.07 17:04) [11]

Т.е. это следует понимать как, что ты описание/справку к своему компоненту внимательно прочитал и там совершенно нет сведений о том, как получить выбранный каталог? Ну, ну, ваше тупое величество...


 
Cj ©   (2007-06-18 17:13) [13]

используй SelectDirectory FileCtrl.pas и не пар8ся


 
nord489   (2007-06-18 17:16) [14]

Удалено модератором


 
nord489   (2007-06-18 17:17) [15]


> Cj ©   (18.06.07 17:13) [13]
> используй SelectDirectory FileCtrl.pas и не пар8ся

Да. Большое спасибо, разобрался.


 
iXT ©   (2007-06-18 17:21) [16]

> [14] nord489   (18.06.07 17:16)

Да пожалуйста, тока справку читатай, пригодиться. :)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.158 c
2-1181818041
Ral'f
2007-06-14 14:47
2007.07.15
как можно узнать модель USB-устройства?


2-1182251677
zsergey
2007-06-19 15:14
2007.07.15
не работает фильтр Like % ...


2-1182425717
Евгений Р.
2007-06-21 15:35
2007.07.15
Номер текущей записи в tQuery


2-1182427820
leonidus
2007-06-21 16:10
2007.07.15
Странное поведение TRichEdit


3-1176875990
Юрий
2007-04-18 09:59
2007.07.15
Многотабличный запрос (MySQL)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский