Via Cà Matta 2 - Peschiera Borromeo (MI)
+39 02 00704272
info@synaptica.info

FindCmdLineSwitch.. Small thing but maybe someone doesn’t know…

Digital Innovation Partner

FindCmdLineSwitch.. Small thing but maybe someone doesn’t know…

Lavorando in Delphi e guardando tanti sorgenti ho visto che viene usato tanto l’istruzione “paramStr” quando si potrebbe utilizzare “FindCmdLineSwitch” che aiuta e evita di scrivere librerie inutili.

Se ad esepio quando lanci la tua applicazione hai una situazione del genere: 

c:\myapp.exe -url "https://chisono.io.me" -port 50443 -clientCert "c:\tmp\miocert.crt"

e vuoi intercettare i parametri con “FindCmdLineSwitch” è molto semplice ti basta ad esempio:

procedure TfrmWebDavDemo.FormCreate(Sender: TObject);
var
  LCertPath: string;
  LswitchVal: string;
  LServerPort: UInt16;
begin
 DebugMode := False;
 SSLHelper := TSSLHelper.Create;
 IdHTTPsrv.OnQuerySSLPort := SSLHelper.QuerySSLPort;


 if FindCmdLineSwitch('-url',LswitchVal,True) then
   edUrl.Text := LswitchVal;

......
end;

immagino che tutti quelli che leggeranno questo post siano già al corrente di tale istruzione, ma dato che è il terzo programma che apro e trovo una unit che fa le stesse cose di FindCmdLineSwitch, ho deciso di scrivere questo post.

 

Tags: ,