Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)
-   -   Convertir este código fuente the CSharp a Delphi (https://www.clubdelphi.com/foros/showthread.php?t=81814)

Blade_Is_One 20-12-2012 15:59:51

Convertir este código fuente the CSharp a Delphi
 
Hola a todos, hace mucho que no volvia a estos foros ,
ahora que estoy en un nuevo proyecto necesito de su ayuda , alguien que me pueda ayudar a traspasar este fuente que esta en C# a delphi (uso delphi7) se los agradeceria mucho...

Código PHP:

public static class VoiceCode
{
    public static 
string Compute(string GTINstring lotDateTimepackDate)
    {
        
ushort crc Crc16.ComputeChecksum(Encoding.ASCII.GetBytes(string.Format("{0}{1}{2}"GTINlotpackDate.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 valueushort temp;
        for (
ushort i 0table.Length; ++i) {
            
value 0;
            
temp i; for (byte j 08; ++j) {
            if (
!= ((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 0bytes.Length; ++i) {
             
byte index = (byte)(crc bytes[i]);
             
crc = (ushort)((crc >> 8) ^ table[index]);
         } return 
crc;
    }




La franja horaria es GMT +2. Ahora son las 00:59:37.

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