Bytearray Probleme

[Uwe.Morgenweck]

Hallo,

ich brauche folgende Function in Delphi.net habe aber Probleme mit dem Bytearray.
Kann mir Bitte jemand helfen?

Danke

Private Function ImageToBytes( ByVal Img As system.Drawing.Image ) As Byte()
' Konvertiert ein Image-Objekt in ein Byte-Array
Dim IC As New ImageConverter
' Mithilfe des ImageConverter-Objekts ein Image
' in ein Byte-Array überführen
ImageToBytes = CType(IC.ConvertTo( Img, GetType(Byte()) ), Byte())
End Function

[Bodo]

Hallo!
Versuch es doch mal so:

byte[] buffer=null;
IFormatter f= new BinaryFormatter();
MemoryStream s= new MemoryStream();
f.Serialize(s,image);
s.Position = 0;
buffer = new byte[s.Length];
s.Read(buffer,0,(int)s.Length);
s.Close();

Ist zwar c#, aber ich denke man kann es schnell umschreiben