indexer_suitealarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatoripe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 8

  → / @ 7

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

No changes between revisions

Regard whitespace Rev 8 → Rev 7

/trunk/AdoConnHelper.pas
3,7 → 3,7
(*
* Class helper for TAdoConnection
* by Daniel Marschall, ViaThinkSoft <www.viathinksoft.com>
* Revision: 14 June 2021
* Revision: 28 Aug 2018
*)
interface
91,10 → 91,7
result.CommandType := cmdText;
result.CommandText := SQL;
result.DisableControls;
if ATimeout <> -1 then
result.CommandTimeout := ATimeout
else
result.CommandTimeout := self.CommandTimeout;
if ATimeout <> -1 then result.CommandTimeout := ATimeout;
result.Active := true;
end;
179,10 → 176,7
cmd.ParamCheck := false;
cmd.CommandType := cmdText;
cmd.CommandText := SQL;
if ATimeOut <> -1 then
cmd.CommandTimeout := ATimeout
else
cmd.CommandTimeout := self.CommandTimeout;
if ATimeOut <> -1 then cmd.CommandTimeout := ATimeout;
cmd.Execute;
finally
cmd.Free;
195,7 → 189,7
begin
for s in List do
begin
ExecSQL(s, ATimeout);
ExecSQL(s);
end;
end;

/trunk/IndexCreatorForm.pas
111,11 → 111,8
const
ERROR_FIELD_SIZE = 200;
{$IFDEF VIATHINKSOFT}
// Example of multiple drives merging to one Index
// Find out via "mountvol" command
GUID_EHDD_A = '\\?\Volume{31e044b1-28dc-11e6-9bae-d067e54bf736}\';
GUID_EHDD_B = '\\?\Volume{560e8251-2b6a-4ab7-82fc-d03df4d93538}\';
GUID_EHDD_R = '\\?\Volume{9d53ea3c-175c-4a8f-a7b4-7b9e6b765e58}\';
{$ENDIF}
function MD5File(const filename: string): string;
247,7 → 244,6
{$IFDEF VIATHINKSOFT}
Result := StringReplace(Result, GUID_EHDD_A, 'EHDD:\', []);
Result := StringReplace(Result, GUID_EHDD_B, 'EHDD:\', []);
Result := StringReplace(Result, GUID_EHDD_R, 'EHDD:\', []);
{$ENDIF}
end;
594,7 → 590,6
var
cacheAconnected: boolean;
cacheBconnected: boolean;
cacheRconnected: boolean;
{$ENDIF}
function AllowFileCheck(AFileName: string): boolean;
var
612,11 → 607,7
begin
cacheBconnected := true;
end;
if not cacheRconnected and SysUtils.DirectoryExists(GUID_EHDD_R) then
begin
cacheRconnected := true;
end;
Result := cacheAconnected or cacheBconnected or cacheRconnected;
Result := cacheAconnected or cacheBconnected;
end
else
{$ENDIF}
654,10 → 645,6
GUID_EHDD_B, [])) then
exit(true);
if cacheBconnected and FileExists(StringReplace(AFileName, 'EHDD:\',
GUID_EHDD_R, [])) then
exit(true);
exit(false);
end;
{$ENDIF}

/trunk/VtsFileIndexerSuite.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream