Очистить memo функцией из dll

[Lokos]

Здравствуйте.
Как можно сделать следующее на форме есть memo1
очистить ее функцией например

function ClMem();
begin
   memo1.text:='';
end;

Только данная функция должна храниться в dll и вызываться от туда.
Я полагаю dll нужно передать указатель на компонент в виде параметра функции и дальше как то с ним работать если не затруднит можно не большей примерчик этого.

[ZuBy]

procedure clMem(Sender: TObject);
begin
  (Sender as TMemo).Clear;
end;

[Sparkman]

File->New->Other->DLL Wizard

library Project2;
uses
  SysUtils,
  Classes,
  StdCtrls;

{$R *.res}
     procedure clMem(Memo:TMemo);
     begin
          Memo.Clear;
     end;
     exports clMem;
begin
end.

File->New->Application
На форму ложите Memo1 и Button1
Процедуру TForm1.Button1Click создаете путем двойного клика мышкой по кнопке на форме

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure clMem(Memo : TMemo); external 'Project2.dll';


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     clMem(Memo1);
end;

end.

[Lokos]

спс за наглядность

[Lokos]

При попытке сделать следующее появляется ошибка конвертации

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
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;

ругает на конвертацию TJPEGImage to a TJPEGImage в чем проблема

[ZuBy]

uses Jpeg добавь

[Lokos]

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

uses Jpeg добавь

добавлен без него не объявятся переменные типа TJpegImage

[evg_m]

ругает на конвертацию TJPEGImage to a TJPEGImage в чем проблема

EXE.TJPEGImage <> DLL.TJPEGImage
VCL in EXE <> VCL in DLL
параметром в процедрах DLL без проблем могут быть только числовые параметры и Pchar
уже для string требуется специальнsqое стандартное ухищрение (sharemem можете прочесть специально для этого вставленный комментарий в начале кода DLL).
:Для объектов (в т.ч. TJPEGImage) стандартных ухищрений не предусмотрено.

[Пепел Феникса]

:Для объектов (в т.ч. TJPEGImage) стандартных ухищрений не предусмотрено.

почему же, внешние пакеты есть, но таскать с собою много надо будет