Ошибка конвертации TJPegImage to a TJpegImage

[Lokos]

Здравствуйте.
По какой то причине происходит ошибка конвертации.

var
  Form1: TForm1;
   procedure ClMem(Sender: TObject); external 'Project1.dll';
   procedure ClSend(ITCPC:TIdTCPClient;Im:TImage;var Host:String;Port:Integer);external 'Project1.dll';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
mt:TMemoryStream;
ft:TJpegImage;
begin
s:='192.168.0.2';
ClSend(TCPC,Image2,s,5478);
end;

Код Dll

procedure ClSend(ITCPC:TIdTCPClient;Im:TImage;var Host:String;Port:Integer);
var
   mt:TmemoryStream;
   ft:TJpegImage;
begin
   ITCPC.Host:=Host;
   ITCPC.Port:=Port;
   ITCPC.Connect;
   ft:=TJpegImage.Create;
   mt:=TMemoryStream.Create;
   ft.Assign(Im.Picture.Graphic);
   ft.SaveToStream(mt);
   mt.Position:=0;
   ITCPC.IOHandler.Write(mt,mt.Size,true);
   mt.Free;
   ft.Free;
   ITCPC.Disconnect;
end;
exports
   ClMem,
   ClSend;

[ZvEr_HaCkEr]

procedure ClSend(ITCPC:TIdTCPClient;Im:TImage;var Host:String;Port:Integer);
var
   mt:TmemoryStream;
   ft:TJpegImage;
begin
try
   ITCPC.Host:=Host;
   ITCPC.Port:=Port;
   ITCPC.Connect;
   ft:=TJpegImage.Create;
   mt:=TMemoryStream.Create;
   ft.Assign(Im.Picture.Graphic);
   ft.SaveToStream(mt);
   mt.Position:=0;
   ITCPC.IOHandler.Write(mt,mt.Size,true);
finally
   mt.Free;
   ft.Free;
   ITCPC.Disconnect;
end;
end;

а если так?

[Lokos]

та же ошибка только вот не TJpegImage to a TJpegImage
а TImage to a TJpegImage
извиняюсь за не точность

[SERG1980]

ft.Assign(Im.Picture.Bitmap)

[Lokos]

Сообщение от SERG1980

ft.Assign(Im.Picture.Bitmap)

пишет ошибку Not assign TImage to TJpegImage
Поменял код вот так

procedure ClSend(ITCPC:TIdTCPClient;Im:TImage;var Host:String;Port:Integer);
var
   mt:TmemoryStream;
   ft:TJpegImage;
begin
   ITCPC.Host:=Host;
   ITCPC.Port:=Port;
   ITCPC.Connect;
   ft:=TJpegImage.Create;
   mt:=TMemoryStream.Create;
   Im.Picture.Bitmap.Assign(ft);
   ft.SaveToStream(mt);
   mt.Position:=0;
   ITCPC.IOHandler.Write(mt,mt.Size,true);
   mt.Free;
   ft.Free;
   ITCPC.Disconnect;
end;

Вылетает ошибка обращения к несуществующему адресу

[Lokos]

Оп понял почему ошибка из за невнимательности пытаюсь присвоить пустоту.

[Lokos]

после вот такой модификации стала появляться ошибка

procedure ClSend(ITCPC:TIdTCPClient;Im:TImage;var Host:String;Port:Integer);
var
   mt:TmemoryStream;
   ft:TJpegImage;
begin
   ITCPC.Host:=Host;
   ITCPC.Port:=Port;
   ITCPC.Connect;
   ft:=TJpegImage.Create;
   mt:=TMemoryStream.Create;
   ft.Assign(im.Picture.Bitmap);
   ft.SaveToStream(mt);
   mt.Position:=0;
   ITCPC.IOHandler.Write(mt,mt.Size,true);
   mt.Free;
   ft.Free;
   ITCPC.Disconnect;
end;

class EJPEG with message JPEG error #42
потому что JPeg пытаюсь присвоить bmp ну мне по крайней мере так кажется. Таких проблем не возникает при использовании
ft.Assign(Im.Picture.Graphic);
но тогда появляется ошибка конвертации.
хотя если делать выше упомянутый код без вызова функции из dll то все чудесно работает, думаю проблема именно в использовании DLL что делать?

[Lokos]

Кое где почитав узнал что вроде как Dll и программа имеет разную память поэтому не происходит копирование. Но выход намного проще и занимает меньший объем.
Программа

var
  Form1: TForm1;
   procedure ClSend(ITCPC:TIdTCPClient;Im:TmemoryStream;var Host:String;Port:Integer);external 'Project1.dll';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
Im:TmemoryStream;
begin
s:='192.168.0.2';
im:=TMemoryStream.Create;
Image2.Picture.Graphic.SaveToStream(im);
ClSend(TCPC,Im,s,5478);
end;

Dll

procedure ClSend(ITCPC:TIdTCPClient;Im:TMemoryStream;var Host:String;Port:Integer);
begin
   ITCPC.Host:=Host;
   ITCPC.Port:=Port;
   ITCPC.Connect;
   im.Position:=0;
   ITCPC.IOHandler.Write(im,im.Size,true);
   im.Free;
   ITCPC.Disconnect;
end;

[SERG1980]

Передача рисунка по сети (Indy 10)