Changeset 809 for cprs/branches/tmg-cprs/CPRS-Chart/rHTMLTools.pas

Timestamp:

Jun 22, 2010, 8:22:30 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Corrected HTML line feed

File:

• cprs/branches/tmg-cprs/CPRS-Chart/rHTMLTools.pas (modified) (10 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/rHTMLTools.pas

@@ -18 +18 @@
     URL_CPRSDir : string;  //This is CPRSDir, but all '\'s are converted to '/'s
 
-  CONST ALT_IMG_TAG_CONVERT = 'alt="convert to $CPRSDIR$"';
+  CONST
+    CPRS_DIR_SIGNAL = '$CPRSDIR$';
+    CPRS_CACHE_DIR_SIGNAL = CPRS_DIR_SIGNAL+'\Cache\';
+    ALT_IMG_TAG_CONVERT = 'alt="convert to ' + CPRS_DIR_SIGNAL +'"';
 
   procedure PrintHTMLReport(Lines: TStringList; var ErrMsg: string;
@@ -43 +46 @@
   Procedure ScanForSubs(Lines : TStrings);
   Procedure InsertSubs(Lines : TStrings);
+  function HTTPEncode(const AStr: string): string;
 
 implementation
@@ -217 +221 @@
     SubsFoundList.Clear;
     for i := 0 to Lines.Count-1 do begin
-      p := Pos('$CPRSDIR$',Lines.Strings[i]);
+      p := Pos(CPRS_DIR_SIGNAL,Lines.Strings[i]);
       if p>0 then begin
-        p := p + Length('$CPRSDIR$\Cache\');
+        p := p + Length(CPRS_CACHE_DIR_SIGNAL);
         p2 := PosEx('"',Lines.Strings[i],p);
         tempS := MidStr(Lines.Strings[i],p,(p2-p));
         SubsFoundList.Add(tempS);
         if Pos('file:///',Lines.Strings[i]) > 0 then begin
-          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',URL_CPRSDir);
+          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],CPRS_DIR_SIGNAL,URL_CPRSDir);
         end else begin
-          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],'$CPRSDIR$',CPRSDir);
+          Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],CPRS_DIR_SIGNAL,CPRSDir);
         end;
         //Ensure images are downloaded before passing page to web browser
@@ -237 +241 @@
   Procedure InsertSubs(Lines : TStrings);
   //Purpose: To scan a edited note images, and replace references to CPRS's
-  //         actual local directory with $CPRS$
+  //         actual local directory with CPRS_DIR_SIGNAL ('$CPRSDIR$')
   var i,p : integer;
      TempS: string;
@@ -243 +247 @@
   begin
     for i := 0 to Lines.Count-1 do begin
-      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],URL_CPRSDir,'$CPRSDIR$');
+      p := pos(ALT_IMG_TAG_CONVERT,Lines.Strings[i]);
+      if p = 0 then continue;
+      TempS := Lines.Strings[i];
+      Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],URL_CPRSDir,CPRS_DIR_SIGNAL);
+      if Lines.Strings[i] = TempS then begin  //There is a problem. Replacement failed.
+        MessageDlg('Problem converting image path to $CPRSDIR$',mtWarning,[mbOK],0);
+      end;
+      //TempS := MidStr(Lines.Strings[i],1,p-1);
+      //TempS := TempS + MidStr(Lines.Strings[i],p+length(ALT_IMG_TAG_CONVERT),length(Lines.Strings[i])+1);
+      //Lines.Strings[i] := TempS;
       Lines.Strings[i] := AnsiReplaceStr(Lines.Strings[i],ALT_IMG_TAG_CONVERT,'IMAGE'); //Remove signal
-      p := pos(ALT_IMG_TAG_CONVERT,Lines.Strings[i]);
-      if p > 0 then begin
-        TempS := MidStr(Lines.Strings[i],1,p-1);
-        TempS := TempS + MidStr(Lines.Strings[i],p+length(ALT_IMG_TAG_CONVERT),length(Lines.Strings[i])+1);
-        Lines.Strings[i] := TempS;
-      end;
     end;
   end;
@@ -504 +511 @@
     Result := AnsiReplaceText(Result,'>'+CRLF,'>'#$1F); //protect sequences we want
     Result := AnsiReplaceText(Result,CRLF,'<BR>'+CRLF); //Add <BR>'s to CrLf's
-    Result := AnsiReplaceText(Result,'>'#$1F,'>'+CRLF); //Restore sequences we wanted
+    Result := AnsiReplaceText(Result,'>'#$1F,'><BR>'+CRLF); //Restore sequences we wanted
     Result := AnsiReplaceText(Result,#$1E,'<NO DATA>'); //Restore sequences we wanted
   end;
@@ -829 +836 @@
   //elh 6/19/09
   begin
-    if not assigned(Reg) then Reg := TRegistry.Create;
+    if not assigned(Reg) then begin
+       Reg := TRegistry.Create;
+       Reg.Rootkey := HKEY_CURRENT_USER;
+       Reg.OpenKey('\Software\Microsoft\Internet Explorer\PageSetup', False)
+    end;   
     try
       StoredIEFooters := '&u&b&d';          //Comment this line to restore previous value
@@ -853 +864 @@
       s := Piece(Lines.Strings[i],'DATE OF NOTE:',2);
       s := Piece(s,'@',1);
-      Result := Trim(s);      
-    end;
-  end;
+      Result := Trim(s);
+    end;
+  end;
+
+  function HTTPEncode(const AStr: string): string;
+  //NOTE: routine from here:
+  //   http://www.delphitricks.com/source-code/internet/encode_a_http_url.html
+  //NOTE: I modified this to my purposes.  I removed conversion of '/',':'
+  const
+    //kt original --> NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-'];
+    NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-', '/', ':'];  //kt
+  var
+    Sp, Rp: PChar;
+  begin
+    SetLength(Result, Length(AStr) * 3);
+    Sp := PChar(AStr);
+    Rp := PChar(Result);
+    while Sp^ <> #0 do begin
+      if Sp^ in NoConversion then
+        Rp^ := Sp^
+      //kt else if Sp^ = ' ' then
+      //kt   Rp^ := '+'
+      else begin
+        FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
+        Inc(Rp, 2);
+      end;
+      Inc(Rp);
+      Inc(Sp);
+    end;
+    SetLength(Result, Rp - PChar(Result));
+  end;
+
 
   //===============================================================
@@ -883 +923 @@
     RestorePrinterTimer.Enabled := false;
     RestoreIEPrinting;   {elh 6/19/09}  //kt
-    //kt SetDefaultPrinter(SavedDefaultPrinter);   
+    //kt SetDefaultPrinter(SavedDefaultPrinter);
     //beep;    
-  end;  
+  end;
 
   //===============================================================
-  
+
+  function EncodePath(var Path : string) : string;
+  begin
+    Result := AnsiReplaceStr(Path,'\','/');
+    Result := HTTPEncode(Result);
+  end;
 
 initialization
@@ -894 +939 @@
   PrinterEvents := TPrinterEvents.Create;
   CPRSDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
-  URL_CPRSDir := AnsiReplaceStr(CPRSDir,'\','/');
+  URL_CPRSDir := EncodePath(CPRSDir);
   SubsFoundList := TStringList.Create;
 
 finalization
+  //kt causing crash -->  Reg.WriteString('footer',StoredIEFooters);
+  //RestoreIEPrinting;
   PrinterEvents.Free;
   SubsFoundList.Free;