Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
ВнизПроверка наличия файла Найти похожие ветки
← →
Urvin (2006-05-27 08:48) [0]Как проверить наличие определенного файла ("c:\123.txt") на другом компьютере в локальной сети (пусть "computer2")?
← →
Kolan © (2006-05-27 12:37) [1]
FileExists("c:\123.txt");
← →
ssk © (2006-05-27 13:18) [2]>>Kolan © (27.05.06 12:37) [1]
FileExists("c:\123.txt");
ну-ну...
← →
inri13666 © (2006-05-27 16:15) [3]Можно сделать более тупа без fileexists, вот так
...
VAr ff:file;
...
begin
...
{I$-}
assignfile(ff,"c:\123.txt");
reset(ff);
{I$+}
if ioresult<>0 then Showmessage ("File not exists!!!!!!");
...
end;» Palladin:» 1 Директивы не оканчиваются символом $, а начинаются с него.
2 Неплохо было бы закрыть файл в случае удачи.
If IOResult=0 Then CloseFile(ff) Else ShowMessage("File not exists!!!!!!");
3 Провал операции Reset совсем не означает, что файла не существует. Например он (файл): может быть заблокирован другим приложением или у пользователя не будет прав на работу с ним....
← →
Rial © (2006-05-27 16:33) [4]А можно еще так:
...
Var Image:TImage;
...
begin
...
Image:=TImage.Create;
Image.Parent:=Self;
Try
Try
Image.LoadFromFile("C:\123.txt");
Except
Showmessage ("File not exists!!!!!!");
end;
Finally
Image.Free;
end;» Palladin:» 1 Image:=TImage.Create<b>({хотя бы}Nil)</b>
2 Image.<b>Picture.</b>LoadFromFile("C:\123.txt");
3 Тоже что и в 3 пункте комментария выше + загрузиться смогут только файлы изображений и только те, формат которых распознает TPicture, ну и еще, в конце концов, памяти может не хватить :)
← →
Palladin © (2006-05-28 09:46) [5]
> Urvin (27.05.06 08:48)
FileExists("\\computer2\<имя доступного по сети ресурса отождествленного с корнем раздела C>\123.txt");
← →
Ega23 © (2006-05-28 12:42) [6]
> А можно еще так:
>
> ...
> Var Image:TImage;
> ...
> begin
> ...
> Image:=TImage.Create;
> Image.Parent:=Self;
> Try
> Try
> Image.LoadFromFile("C:\123.txt");
> Except
> Showmessage ("File not exists!!!!!!");
> end;
> Finally
> Image.Free;
> end;
>
Рыдал! В Орешник! Срочно.
← →
tesseract © (2006-05-28 12:46) [7]
> Рыдал! В Орешник! Срочно.
при прочтении сего плакалъ :-)
← →
TUser © (2006-05-28 17:14) [8]В метод LoadFromFile класса TImage уже встроен Конвертор Форматов. А вы не слышали?
← →
Rial © (2006-05-28 18:42) [9]Я раз, что смог хоть кого - то развеселить...
Просто навеяно
> Kolan © (27.05.06 12:37) [1]
и
> inri13666 © (27.05.06 16:15) [3]
:))
← →
Virgo_Style © (2006-05-28 19:24) [10]TUser © (28.05.06 17:14) [8]
а не конвектор?
← →
unknown © (2006-05-28 19:54) [11]
> Urvin (27.05.06 08:48)
если прав доступа к comp2 достаточно, то
FileExists("\\comp2\с$\123.txt");
Иначе или [5] или никак.
Хотя, можно и троянца заслать на comp2, но это уже из другой оперы :))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.013 c