Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c