diff options
Diffstat (limited to 'komponenten.pas')
| -rw-r--r-- | komponenten.pas | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/komponenten.pas b/komponenten.pas index a49184a..3c7b839 100644 --- a/komponenten.pas +++ b/komponenten.pas @@ -552,15 +552,27 @@ var argumente: array of string; ausgabe: string; rD,lD: longint; + qURI,s: string; begin - setlength(argumente,3+2*byte(cert<>'')); + setlength(argumente,3+2*byte(cert<>'')+2*byte(pos('#',quelle)>0)); argumente[0]:='-o'; argumente[1]:='-'; if cert<>'' then begin argumente[2]:='--cacert'; argumente[3]:=cert; end; - argumente[2+2*byte(cert<>'')]:=quelle; + qURI:=copy(quelle,pos('#',quelle)+1,length(quelle)); + argumente[2+2*byte(cert<>'')+2*byte(pos('#',quelle)>0)]:=qURI; + if pos('#',quelle)>0 then begin + argumente[2+2*byte(cert<>'')]:='--resolve'; + if copy(qURI,1,7)='http://' then + s:=':80:' + else + s:=':443:'; + delete(qURI,1,pos('://',qURI)+2); + s:=copy(qURI,1,pos('/',qURI)-1)+s+copy(quelle,1,pos('#',quelle)-1); + argumente[2+2*byte(cert<>'')+1]:=s; + end; ausgabe:=''; if not runCommand('curl',argumente,ausgabe) then begin status:=0; |