Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > .NET
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-12-2012
Blade_Is_One Blade_Is_One is offline
Registrado
 
Registrado: nov 2006
Posts: 3
Poder: 0
Blade_Is_One Va por buen camino
Exclamation Alguien que me ayude a transformar este fuente CSharp en una DLL

Alguien qu eme ayude a trasnsformar este fuente de CSharp en una dll, ya que se me a echo un lio homologarla en delphi, asi si la logro transformar en dll compilando en CSharp la puedo llamar desde delphi.

se los agradeceria mucho a los que sean expertos en CSharp.

gracias de antemano..

Código PHP:
public static class VoiceCode
{
    public static 
string Compute(string GTIN, string lot, DateTime? packDate)
    {
        
ushort crc =  Crc16.ComputeChecksum(Encoding.ASCII.GetBytes(string.Format("{0}{1}{2}",  GTIN, lot, packDate.HasValue ? packDate.Value.ToString("yyMMdd") :
        
string.Empty))); return string.Format("{0:0000}", crc % 10000);
    }
}


public static class 
Crc16 { #region static members
    
private const ushort polynomial = 0xA001; private static ushort[] table = new ushort[256]; static Crc16()
    {
        
ushort value; ushort temp;
        for (
ushort i = 0; i < table.Length; ++i) {
            
value = 0;
            
temp = i; for (byte j = 0; j < 8; ++j) {
            if (
0 != ((value ^ temp) & 0x0001)) {
                
value = (ushort)((value >> 1) ^ polynomial);
            }     else {
                          
value >>= 1; } temp >>= 1;
                       }
            
table[i] = value;
        }
    } 
#endregion

    
public static ushort ComputeChecksum(byte[] bytes) { ushort crc = 0;
         for (
int i = 0; i < bytes.Length; ++i) {
             
byte index = (byte)(crc ^ bytes[i]);
             
crc = (ushort)((crc >> 8) ^ table[index]);
         } return 
crc;
    }
} 
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Convertir este código fuente the CSharp a Delphi Blade_Is_One .NET 0 20-12-2012 14:59:51
Alguien que me ayude con Error de Delphi 7 Barzaugc Varios 1 03-06-2005 02:06:36
alguien que me ayude jhonveras DB2 2 06-05-2004 01:59:33
Alguien que me ayude con FASTREPORT CI>140 Impresión 1 27-09-2003 16:17:10
ERROR. alguien que me ayude Markoz Firebird e Interbase 2 16-09-2003 00:01:30


La franja horaria es GMT +2. Ahora son las 02:04:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi