Csharp dan Delphi ye

[DelphiNV]

Merhaba;

Csharp da aşağıdaki gibi Yazılan Kodları delphi 7 ye aktarmam gerekiyor. Ama çözemedim. Mesela

Kod: Tümünü seç

        public UInt32 HeadFlag;
        public UInt16 Checksum, MessageLength;
        public UInt32 CSeq, Result;
        public UInt16 Command, ContentLength;

için nasıl tanımlama yapmam gerekiyor. Birde aşağıdaki işlemlerle ne yapılmaya çalışılmış yardımarınız için şimdiden teşekkür ederim.

Kod: Tümünü seç

       public UInt32 HeadFlag;
        public UInt16 Checksum, MessageLength;
        public UInt32 CSeq, Result;
        public UInt16 Command, ContentLength;

        public override string ToString()
        {
            return HeadFlag.ToString() + ", " + Checksum.ToString() + ", " + MessageLength.ToString() + ", "
                 + CSeq.ToString() + ", " + Result.ToString() + ", " + Command.ToString() + ", "
                  + ContentLength.ToString();
        }
    }

    class DeviceDataInterface
    {
        public static DeviceDataHeader ReadHeader(BinaryReader binaryReader)
        {
            DeviceDataHeader header = new DeviceDataHeader();
            header.HeadFlag = binaryReader.ReadUInt32();
            header.Checksum = binaryReader.ReadUInt16();
            header.MessageLength = binaryReader.ReadUInt16();
            header.CSeq = binaryReader.ReadUInt32();
            header.Result = binaryReader.ReadUInt32();
            header.Command = binaryReader.ReadUInt16();
            header.ContentLength = binaryReader.ReadUInt16();
            return header;
        }

        public static void WriteHeader(BinaryWriter binaryWriter, DeviceDataHeader header)
        {
            binaryWriter.Write(header.HeadFlag);
            binaryWriter.Write(header.Checksum);
            binaryWriter.Write(header.MessageLength);
            binaryWriter.Write(header.CSeq);
            binaryWriter.Write(header.Result);
            binaryWriter.Write(header.Command);
            binaryWriter.Write(header.ContentLength);
        }
    }

[Ertugrul]

Kod: Tümünü seç

type
TBasiKesilmisKendisiAcabaNedir = class
private
	FHeadFlag,FCSeq,FResult:Int64;
	FCheckSum,FMessageLen,FCommand,FContentLen:Int32;
public
	HeadFlag:Int64 read FHeadFlag write FHeadFlag;
	CSeq:Int64 read FCSeq write FCSeq;
	//................
	function AsString:string;
end;

function TBasiKesilmisKendisiAcabaNedir.AsString:string;
begin
	Result:=Format("%d, %d, %d, %d, %d, %d, %d, %d",[HeadFlag,Checksum,MessageLen,CSeq,Result,Command,ContentLen]);
end;

Digerinde ise yine kodun tamami verilmedigi icin (binaryreader nereden geliyor nereye erisiyor?) API uzerinden aygita veri yazdigini tahmin ediyorum.

[DelphiNV]

Merhaba;

Kodun Tamamı Bu binaryreader csharp ta sanırım bir fonksiyon yada procedur Stream olarak okumak yazmak için olabilir...

[conari]

Kod: Tümünü seç

TBasiKesilmisKendisiAcabaNedir = class
function TBasiKesilmisKendisiAcabaNedir.AsString:string;

[Ertugrul]

Kodun Tamamı Bu binaryreader csharp ta sanırım bir fonksiyon yada procedur Stream olarak okumak yazmak için olabilir...

BinaryReader stream gibi bir obje evet fakat bu kod nerede kullaniliyor? Asagidaki gibi bir kullanimi olacak

Kod: Tümünü seç

BinaryReader br=new BinaryReader(asilGerekenKisimBurasi);
DeviceDataHeader ddh=DeviceDataInterface.ReadHeader(br);

[DelphiNV]

Merhaba;

Bo kod UDP üzerinden veri okuma ve veri yazmak için kullanılıyor.... Tüm kodları Özel mesaj olarak attım.

Teşekkürler