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

GetFileVersionInfoSize и сетевое имя файла   Найти похожие ветки 

← →
Слэш ©   (2003-12-01 11:53) [0]

var sz:integer;
i:cardinal;
file:string;
begin
sz:=GetFileVersionInfoSize(PChar(file),i);
end;

Если file="\\compname\pub\program.exe" тогда всё нормально, возвращает размер,
а если file="\\192.168.1.1\pub\program.exe" тогда почемуто возвращает 0.

compnam=192.168.1.1
под d3 всё было нормально.

---

← →
REA ©   (2003-12-01 11:58) [1]

А код ошибки посмотри. А кто преобразует из IP в Name - наверно hosts или WINS какой-нить?

---

← →
Слэш ©   (2003-12-01 12:37) [2]

Код ошибки - 161 ?
Где можно его расшифровку посмотреть?

---

← →
REA ©   (2003-12-01 13:02) [3]

SysUtils.RaiseLastOSError:

procedure RaiseLastOSError;
var
LastError: Integer;
Error: EOSError;
begin
LastError := GetLastError;
if LastError <> 0 then
Error := EOSError.CreateResFmt(@SOSError, [LastError,
SysErrorMessage(LastError)])
else
Error := EOSError.CreateRes(@SUnkOSError);
Error.ErrorCode := LastError;
raise Error;
end;

---

← →
icWasya ©   (2003-12-01 14:45) [4]

из модуля Windows


{ The specified path is invalid. }
ERROR_BAD_PATHNAME = 161;
{$EXTERNALSYM ERROR_BAD_PATHNAME}


---

← →
Слэш ©   (2003-12-01 19:39) [5]

Странно.. под XP нормально воспринимает GetFileVersionInfoSize, а под 98 - ошибка.
Короче сделал вместо
sz:=GetFileVersionInfoSize(PChar(file),i);
sz:=10000;
:)

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.011 c