Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];
Вниз
HELP ME!!! Найти похожие ветки
← →
AZIZE © (2007-07-10 16:20) [0]Необходимо файл выбранный в OpenDialog скопировать в
каталог размещения программы\INFO\
при этом оставить прежнее имя (возможно очень длинное)
запарился уже, никак не выходит
← →
Сергей М. © (2007-07-10 16:22) [1]
> не выходит
"А нефих было засовывать !" (С) (анекд.)
← →
AZIZE © (2007-07-10 16:26) [2]
> Сергей М.
Убедительная просьба ответы давать по теме
← →
homm © (2007-07-10 16:27) [3]> [0] AZIZE © (10.07.07 16:20)
> Необходимо файл выбранный в OpenDialog скопировать в
> каталог размещения программы\INFO\
Шли файл, скопирую :)
← →
AZIZE © (2007-07-10 16:31) [4]
> homm
очень смешно
← →
homm © (2007-07-10 16:32) [5]Короче,
каталог размещения программы\INFO\+ прежнее имя (возможно очень длинное)не должно превышать 260 символов. Это предел для Windows. Больше нельзя по определению.
← →
app © (2007-07-10 16:32) [6]> () []
Скоро перемещать прекращу, это последний раз.
← →
AZIZE © (2007-07-10 16:45) [7]
> homm
при такой записи копирует в С: \INFO\
а длинное имя определяет больне семи символов (формат DOS)
← →
homm © (2007-07-10 16:49) [8]> [7] AZIZE © (10.07.07 16:45)
А теперь по русски изъяснись, что-бы мысль твою уловить можно было.
← →
AZIZE © (2007-07-10 16:54) [9]
> homm © (10.07.07 16:49) [8]
Выдаёт сообщение что приемник (каталог куда копируется файл) не поддерживает длинные имена файлов и предлагает уменьшить имя файла до семи символов плюс расширение.
Если соглашаешься копирует в папку С: \INFO\
← →
homm © (2007-07-10 17:02) [10]> Выдаёт сообщение
Кто? о_О
Длину проверил, она больше 260 символов, или нет?
← →
AZIZE © (2007-07-10 17:08) [11]
> Кто? о_О
Программа
> Длину проверил, она больше 260 символов, или нет?
меньше
← →
clickmaker © (2007-07-10 17:13) [12]
> [11] AZIZE © (10.07.07 17:08)
>
> > Кто? о_О
>
> Программа
чья?
← →
tesseract © (2007-07-10 17:15) [13]
> Программа
Код то приведи копирования
← →
AZIZE © (2007-07-10 17:22) [14]
> Код то приведи копирования
const
DIRECTORY_OF_INFO="\INFO\";
...
strFileName:=lbeInfo.Text;
for wrdInd := length(strFileName) downto 1 do
if(Copy(strFileName,wrdInd,1)="\")and(wrdNumberPos=0) then
wrdNumberPos:=wrdInd;
strFileTo:=ExtractFilePath(application.exename)+DIRECTORY_OF_INFO+Copy(strFileName,wrdNumberPos+1,length(strFileName)-wrdNumberPos);
if strFileTo<>strFileName then
begin
MyCopyFile.wFunc:=FO_COPY;
MyCopyFile.pTo:=PAnsiChar(strFileTo);
MyCopyFile.pFrom:=PAnsiChar(strFileName + #0);
SHFileOperation(MyCopyFile);
end;
← →
homm © (2007-07-10 17:25) [15]> MyCopyFile.pTo:=PAnsiChar(strFileTo);
а что, там #0 не нужен?
← →
AZIZE © (2007-07-10 17:28) [16]
> homm
Ставил разницы нет
← →
clickmaker © (2007-07-10 17:28) [17]а MyCopyFile.fFlags кто будет указывать?
и не вредно бы обнулить структуру перед работой, если локальная переменная
← →
AZIZE © (2007-07-10 17:32) [18]
> а MyCopyFile.fFlags кто будет указывать?
не указывал т.к. в данных флагах не нуждаюсь
> и не вредно бы обнулить структуру перед работой, если локальная
> переменная
Переменная обнуляется только она не локальная а глобальная
← →
AZIZE © (2007-07-10 17:50) [19]спасибо за помощь, задача решена
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.08.05;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.037 c
