Erro ao dar um build e compilar meu projeto com Acbrnfe2

karlouchoa · 8 de outubro de 2013

Senhores, sou novo por aqui, antes de tentar o usar o Componente ACBrNfe2 eu compilava meu projeto no Delphi 7.

Como tive dificuldades para encontrar o quickreport 5 para esta versão do Delphi, e por isso não conseguia compilar de jeito nenhum meu projeto, resolvi compilar o projeto no Delphi 2010, já com quickreport 5, fortes report, qrbarcode e tudo o mais...

Pensei que conseguiria compilar no Delphi 2010... puro engano:

Ao compilar recebo a msg de :

"[DCC Error] sswin32.inc(1074): E2010 Incompatible types: 'PSockAddr' and 'Pointer'"

e o debug do Delphi para na função abaixo:

function Bind(s: TSocket; const addr: TVarSin): Integer;
begin
  Result := ssBind(s, @addr, SizeOfVarSin(addr));
end;

que me parece fazer parte de uma unit chamada: sswin32.inc

Ao tentar executar um Build recebo a msg de:

"[DCC Error] qrpdffilt.pas(1398): E2010 Incompatible types: 'Array' and 'Char'" e/ou "[DCC Warning] qrpdffilt.pas(1500): W1047 Unsafe code '@ operator''"

Parando o debug na linha :

K:=MultiByteToWideChar(CodePage, 0, PansiChar(charString), 255, @charCodes, 255);

da procedure abaixo:

      procedure SetEncoding;
      var
        encodestr: string;
        I,
        K: Integer;
      begin
        // custom encoding
        //encodestr := CZECH_ENC;
        encodestr:=FCustomEncodings.Value(PDFFontName);
        if encodestr<>'' then begin
          encoding:=' <</Type/Encoding /Differences [ '+encodestr+' ]>>';
          Exit;
        end;
        // get the encoding string
        case TmpCanvas.Font.Charset of
               BALTIC_CHARSET: CodePage:=1257;
          CHINESEBIG5_CHARSET: CodePage:=950;
           EASTEUROPE_CHARSET: CodePage:=1250;
               GB2312_CHARSET: CodePage:=936;
                GREEK_CHARSET: CodePage:=1253;
                  OEM_CHARSET: CodePage:=CP_OEMCP;
              RUSSIAN_CHARSET: CodePage:=1251;
             SHIFTJIS_CHARSET: CodePage:=932;
              TURKISH_CHARSET: CodePage:=1254;
               HEBREW_CHARSET: CodePage:=1255;
               ARABIC_CHARSET: CodePage:=1256;
                 THAI_CHARSET: CodePage:=874;
           VIETNAMESE_CHARSET: CodePage:=1258;
        else
            CodePage:=1252;
        end;
        charString:='';
              for I := 1 to 255 do charString:=charString+AnsiChar(Chr(I));  // TF
        K:=MultiByteToWideChar(CodePage, 0, PansiChar(charString), 255, @charCodes, 255);
        if K<>0 then
        begin
          encoding:=' <</Type/Encoding /Differences [ '+IntToStr(PDFFont.FirstChar+2)+' ';
          for I := 1 to 255 do // loop in charcodes
          begin
            if I<PDFFont.FirstChar then Continue;
            Found:=False;
            for K := 0 to High(UniGlyphs) do
            begin
              if charCodes[I]=UniGlyphs[K].ID then
              begin
                encoding:=encoding+'/'+UniGlyphs[K].Name;
                Found:=True;
                Break;
              end;
            end;
            if not Found then
            begin
                encoding:=encoding+'/space'
            {
              if charCodes[I]<256 then
                encoding:=encoding+'/space'
              else
                encoding := encoding + '/uni' + WordToHex(charCodes[I]);
                }
            end;
          end;
          encoding:=encoding+']';
        end
        else
        begin
          encoding:=encoding+'/BaseEncoding /WinAnsiEncoding';
        end;
        encoding:=encoding+'>>';
      end;