mrのなでしこ学習帳 RSSフィード

2008-12-20

「nadesikosvn」のMLに登録。

はてなブックマーク - 「nadesikosvn」のMLに登録。 - mrのなでしこ学習帳

「nadesikosvn」のMLに登録。

これ、生きてるのかな?

ファイルがないならエラーにする

はてなブックマーク - ファイルがないならエラーにする - mrのなでしこ学習帳

  • SHA1ファイル取得」「MD5ファイル取得」でファイルが存在ない時にはエラーを表示するように修正(r62)

のリリースに関して、勉強のため調べる。とりあえずMD5の方をサンプルとする。

更新前

function sys_md5file(args: DWORD): PHiValue; stdcall;
begin
  Result := hi_newStr(
    MD5FileS( getArgStr(args, 0, True ) )
  );
end;

更新後

function sys_md5file(args: DWORD): PHiValue; stdcall;
var
  f: string;
begin
  f := getArgStr(args, 0, True);
  if not FileExists(f) then raise Exception.Create('ファイル"'+f+'"が見つかりません。');
  Result := hi_newStr(MD5FileS( f ));
end;

なるほどなるほど。