[SOLVED] SQLite open link

[Pe3s]

Hello, how can I improve the code so that ShellExecute works for addresses without http:// ?

Code: Pascal  [Select][+][-]

1. var Link: String;
2. begin
3. if ZQuery2.RecordCount = 0 then Exit;
4.   Link := ZQuery2.FieldByName('Link').AsString;
5.   ShellExecute(Handle, 'open', PChar(Link), nil, nil, SW_SHOW);
6. end;
7.  

[TRon]

Hello, how can I improve the code so that ShellExecute works for addresses without http:// ?

Code: Pascal  [Select][+][-]

1. var Link: String;
2. begin
3. if ZQuery2.RecordCount = 0 then Exit;
4.   Link := ZQuery2.FieldByName('Link').AsString;
5.   if not Link.StartsWith('http://') then Link := 'http://' + Link;
6.   ShellExecute(Handle, 'open', PChar(Link), nil, nil, SW_SHOW);
7. end;
8.  

?

[Pe3s]

@TRon, Thank you

[Zvoni]

Or use regex
https://regex101.com/r/vsumW6/1
catches both: http and https

[Pe3s]

Thank you 

[TRon]

@Zvoni:
Though my solution is far from perfect as proofed by your examples, that is one heck of an expression and still fails when the protocol name has a capital letter. Thus casting to low or high for checking the protocol is preferred (I know that can (easily) be added to the expression as well  ).

If you really want to do it properly then ParseURI and EncodeURI is imho far more understandable (though I do admit that when using RE's is something that you do every day you probably read/write it as a normal person would read/write text is his/her native tongue -> I honestly can't).

[Zvoni]

@Zvoni:
Though my solution is far from perfect as proofed by your examples, that is one heck of an expression and still fails when the protocol name has a capital letter. Thus casting to low or high for checking the protocol is preferred (I know that can (easily) be added to the expression as well  ).

Or switch to case insensitive …

[TRon]

Or switch to case insensitive …

Rrright. Forgot about that one