image in bytearray umwandeln ?

[wabux]

Hallo,

ich möchte ein image in ein array of byte umwandeln nach dieser Vorlage in VB

Private Overloads 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
-------------------------------------------------------

Delphi-Quellcode:

was mache ich hier falsch?

var bmp  : image;
    btmp : bitmap;
    pic  : array of byte;
    ic   : imageConverter;
begin
   btmp := bitmap.Create('F:\image.gif');

   ic   := imageConverter.Create;
   result := byte(ic.Convertto(bmp, pic.GetType ) );
end

Danke f. die Hilfe

[edit=Luckie]Das nächste mal bitte selber die Delphi-Tags setzen. Danke. Mfg, Luckie[/edit]