Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#65
ez kész.. ennyire hülye lennék a kivétel kezeléshez???
for i:=0 to ListBox2.Items.Count-1 do
begin
hibasfajl:=false;
try
AssignFile(f,Listbox2.Items[ i]);
Reset(f);
...
finally
hibasfajl:=true;
end;
if hibasfajl=false then begin
try
..
osszmeret:=osszmeret+Filesize(f);
CloseFile(f);
finally
end; end;
[/center]
a fájlok egy részét sikerül megnyitnia, viszont másoknál invalid filaname-t ír:( nem tetszik neki a 91 karakteres elérési út?? ááá nemértem.
másrészt meg a Filesize -os blokkot nem hatja végre, mi lehet a baja??