PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Problema na Implementação de Rotina em C no Delphi #260265

27/11/2004

0

alguém sabe exatamente como fazer para usar um rotina feita em linguagem C no delphi?

eu fiz o seguinte em uma unit separada para chamar em outra:

unit Unit2;

interface

implementation
uses
 SysUtils;

 {$link C:\CRC_CALC.obj}
function teste(pbdata:char; ilength:integer):word;cdecl;external;
end.
 


só q na hora de compilar ele dá o seguinte erro:

[Error] Unit2.pas(11): 16-Bit segment encountered in object file ´C:\CRC_CALC.obj´


será um erro no .obj?

obrigado.

[b:88da9a0a18][color=green:88da9a0a18]Título Editado(Saviski)[/color:88da9a0a18] - removido ´(Urgente)´ - [/b:88da9a0a18][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]regras de conduta[/url]


Tap_pedroso

Tap_pedroso

Responder

Posts

29/11/2004

Tap_pedroso

procedure TForm1.bytecrc(data: byte; var crc: word);
var
i:byte;
begin
 for i:=0 to 7 do
  begin
   data:=data;
   if((data and $01)XOR(crc AND $0001)<>0) then
    begin
     crc:=crc shr 1;
     crc:=crc XOR $1021;
    end
    else crc:=crc shr 1;
    data:=data shr 1;
  end;
end;


no código acima estou precisando jogar um valor em hexadecimal ex: 30 32 0D na variável [b:2495580b3d]data[/b:2495580b3d] da procedure bytecrc eu já tentei converter um valor de um tedit para decimal com [b:2495580b3d]ord[/b:2495580b3d] e de decimal para hexa com inttohex mas quando vou jogar na variável [b:2495580b3d]data[/b:2495580b3d] do tipo byte o delphi não aceita dando um erro de tipos incompatíveis byte e string ao converter para hexa com inttohex ele converter mas só q vira uma string.alguém sabe como eu posso colocar esse valor hexa dentro da variável byte?


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar