Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка наличия файла [D7, WinXP]

Urvin © (2006-05-27 08:48:00)
Как проверить наличие определенного файла ("c:\123.txt") на другом компьютере в локальной сети (пусть "computer2")?

unknown (2006-05-28 19:54:00) [1]

> Urvin (27.05.06 08:48)

если прав доступа к comp2 достаточно, то
FileExists('\\comp2\с$\123.txt');
Иначе или [5] или никак.
Хотя, можно и троянца заслать на comp2, но это уже из другой оперы :))

Virgo_Style (2006-05-28 19:24:00) [2]
TUser © (28.05.06 17:14) [8]

а не конвектор?

Rial (2006-05-28 18:42:00) [3]
Я раз, что смог хоть кого - то развеселить...
Просто навеяно

> Kolan © (27.05.06 12:37) [1]

и

> inri13666 © (27.05.06 16:15) [3]

:))

TUser (2006-05-28 17:14:00) [4]
В метод LoadFromFile класса TImage уже встроен Конвертор Форматов. А вы не слышали?

tesseract (2006-05-28 12:46:00) [5]

> Рыдал! В Орешник! Срочно.

при прочтении сего плакалъ :-)

Ega23 (2006-05-28 12:42:00) [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;
>

Рыдал! В Орешник! Срочно.

Palladin (2006-05-28 09:46:00) [7]

> Urvin (27.05.06 08:48)

FileExists('\\computer2\<имя доступного по сети ресурса отождествленного с корнем раздела C>\123.txt');

Rial (2006-05-27 16:33:00) [8]
А можно еще так:

...
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, ну и еще, в конце концов, памяти может не хватить :)

inri13666 (2006-05-27 16:15:00) [9]
Можно сделать более тупа без 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 совсем не означает, что файла не существует. Например он (файл): может быть заблокирован другим приложением или у пользователя не будет прав на работу с ним....

ssk (2006-05-27 13:18:00) [10]
>>Kolan © (27.05.06 12:37) [1]
FileExists('c:\123.txt');

ну-ну...

Kolan (2006-05-27 12:37:00) [11]
FileExists('c:\123.txt');

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »