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:
|
1 |
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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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.
