Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: bonmario - Maggio 23, 2018, 02:20:22 pm

Titolo: Bug in "FindFirstUTF8" ?
Inserito da: bonmario - Maggio 23, 2018, 02:20:22 pm
Ciao,
nell'azienda in cui lavoro, abbiamo una rete Microsoft Windows.
Purtroppo non ne conosco i dettagli, perché io non mi occupo di quella.

Oggi ho notato che, se richiamo la procedura qui sotto, passando come parametro il nome di una directory esistente sulla rete, e poi faccio verificare ai sistemisti se c'è qualche lock sulla directory passata come parametro, il risultato del controllo è che quella directory risulta allocata da me.

Codice: [Seleziona]
procedure TestFindFirst(WrkDir:String);
var PathInfo: TSearchRec;
begin
  try
    FindFirstUTF8(AppendPathDelim(WrkDir) + GetAllFilesMask, faDirectory, PathInfo);
  finally
    FindCloseUTF8(PathInfo);
  end;
end;

Credo che il comando che lanciano per fare la verifica sia "Get-SmbOpenFile", ma non so con quali parametri.

Qualcuno qui ha già verificato qualcosa di simile?

Grazie in anticipo, Mario
Titolo: Re:Bug in "FindFirstUTF8" ?
Inserito da: xinyiman - Maggio 24, 2018, 08:14:44 am
Ciao,
nell'azienda in cui lavoro, abbiamo una rete Microsoft Windows.
Purtroppo non ne conosco i dettagli, perché io non mi occupo di quella.

Oggi ho notato che, se richiamo la procedura qui sotto, passando come parametro il nome di una directory esistente sulla rete, e poi faccio verificare ai sistemisti se c'è qualche lock sulla directory passata come parametro, il risultato del controllo è che quella directory risulta allocata da me.

Codice: [Seleziona]
procedure TestFindFirst(WrkDir:String);
var PathInfo: TSearchRec;
begin
  try
    FindFirstUTF8(AppendPathDelim(WrkDir) + GetAllFilesMask, faDirectory, PathInfo);
  finally
    FindCloseUTF8(PathInfo);
  end;
end;

Credo che il comando che lanciano per fare la verifica sia "Get-SmbOpenFile", ma non so con quali parametri.

Qualcuno qui ha già verificato qualcosa di simile?

Grazie in anticipo, Mario
Sai bonmario, questa la vedo più come domanda per il forum di free pascal quello internazionale.

http://forum.lazarus.freepascal.org/index.php/board,64.0.html?PHPSESSID=8hhecab8bfd9vv8713r9gptla3
Titolo: Re:Bug in "FindFirstUTF8" ?
Inserito da: bonmario - Maggio 24, 2018, 08:28:06 am
Grazie, ieri sera ho "ristretto il campo" della problematica, ed ho fatto una domanda nella sezione specifica del sistema operativo, ma effettivamente era nelle sezioni di Lazarus. Se non ho risposte entro oggi, provo a postare di lì, dove mi hai suggerito tu.

Grazie, Mario
Titolo: Re:Bug in "FindFirstUTF8" ?
Inserito da: bonmario - Maggio 24, 2018, 08:43:04 am
Effettivamente era meglio dove dicevi tu ... ho cancellato il post di ieri sera, e ne ho fatto uno nuovo.

Posso cancellare questo thread?

Grazie, Mario
Titolo: Re:Bug in "FindFirstUTF8" ?
Inserito da: xinyiman - Maggio 24, 2018, 08:50:36 am
Lascialo pure, alla fine può essere utile per trovare un indicazione...