remdate kann nun auch --resolve setzen

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;