Ir ao conteúdo
  • Cadastre-se
karlouchoa

Erro ao dar um build e compilar meu projeto com Acbrnfe2

Recommended Posts

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;

P.S.: Este procedimento esta na unit QRPDFFilt.

Por favor, este são meus primeiros passos na utilização do Componente ACBR. Eu preciso implantar em minha aplicação a tal da NFe-C.

Preciso de uma ajudinha dos amigos.

Obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×