Fórum dll Ponto de entrada não encontrado #336950

library vcnpje;

uses
  Windows, Messages, SysUtils, Forms;
  
{$R *.res}

function VerCNPJ(snrcgc:string):Boolean; Stdcall;
   VAR
   WCGCCALC : STRING;
   WSOMACGC : INTEGER;
   WSX1     : SHORTINT;
   WCGCDIGT : INTEGER;
   s : string;
begin
  s := snrCGC;
  while Pos(´.´, S) > 0 do
    S[Pos(´.´, S)] := ´ ´;
  while Pos(´/´, S) > 0 do
    S[Pos(´/´, S)] := ´ ´;
  while Pos(´-´, S) > 0 do
    S[Pos(´-´, S)] := ´ ´;
  s := TRIM(s);
  if s = ´´ then
  else if length(s) < 18 then
     begin
        application.messagebox(´CNPJ Inválido !´,´Aviso Sistema!´,mb_iconstop+mb_ok);
        VerCNPJ := False;
     end
   else
     BEGIN
         snrcgc := Copy(snrcgc,1,2)+Copy(snrcgc,4,3)+
           Copy(snrcgc,8,3)+Copy(snrcgc,12,4)+Copy(snrcgc,17,2);
         wCgcCalc := Copy(snrcgc,1,12);
         WSOMACGC := 0;
         for wsx1:= 1 to 4 do
              wsomacgc:= wsomacgc + strtoint(copy(wcgccalc, wsx1, 1)) * (6 - wsx1);
         for wsx1:= 1 to 8 do
              wsomacgc:= wsomacgc + strtoint(copy(wcgccalc, wsx1 + 4, 1)) * (10 - wsx1);
         wcgcdigt:= 11 - wsomacgc mod 11;
         if wcgcdigt in [10,11] then
             BEGIN
               wcgccalc:= wcgccalc + ´0´;
             END
         else
             BEGIN
               wcgccalc := wcgccalc +  inttoStr(wcgcdigt);
             END;
         wsomacgc:= 0;
         for wsx1:= 1 to 5 do
              wsomacgc:= wsomacgc + strtoint(copy(wcgccalc, wsx1, 1)) * (7 - wsx1);
         for wsx1:= 1 to 8 do
              wsomacgc:= wsomacgc + strtoint(copy(wcgccalc, wsx1 + 5, 1)) * (10 - wsx1);
         wcgcdigt:= 11 - wsomacgc mod 11;
         if wcgcdigt in [10,11] then
             BEGIN
               wcgccalc:= wcgccalc + ´0´;
             END
         else
             BEGIN
               wcgccalc := wcgccalc +  inttoStr(wcgcdigt);
             END;
         if  snrcgc <> wcgccalc then
            begin
              application.messagebox(´CNPJ Inválido !´,´Aviso Sistema!´,mb_iconstop+mb_ok);
              VerCNPJ := False;
              result:=false;
            end
         else
            begin
            VerCNPJ := True;
            result:=true;
            end;
      END ;

end;
 Exports VerCNPJ;
end.

IF DBCNPJ.Text = False Then
 DBCNPJ.SetFocus;