Hi, I am quite new to this and I would appreciate it if you could help me on transforming a TEDBMemoryStream to a delphi TMemoryStream.

I need this in an external module server module for EDB server where I transfer a blob field as a parameter (which is of type TEDBMemoryStream) for further processing.

Thanks
George

George


I believe they are both descended from TStream so a simple cast may work (not tried it) but you're better off doing a copy eg

 Destination.Clear;  // Clear existing data first if we're replacing it
 Destination.CopyFrom(Source, Source.Size);


Roy Lambert

Roy,

>I believe they are both descended from TStream so a simple cast may work (not tried it) but you're better off
 doing >a copy eg

>  Destination.Clear;  // Clear existing data first if we're replacing it
> Destination.CopyFrom(Source, Source.Size);

I have tried that, however I get  an error message:
 E2010 Incompatible types: 'TStream' and 'TEDBMememoryStream'

I have used the Lightweight External Module template as a basis for the module (if that helps)

Thanks

George

George


I went to set up a test project but I can't find TEDBMemoryStream - which unit is it in?

Roy Lambert

Roy,

>I went to set up a test project but I can't find TEDBMemoryStream - which unit is it in?

Below is part of the code, the AsBlob is of type TEDBMemoryStream:

procedure TEDBLightweightExternalModule1.DoRoutine(const RoutineName: String);
var
 Attachment : TMemoryStream;

begin
    Attachment := TMemoryStream.Create ;
    Attachment.CopyFrom(ParamValues.FindByName('Attachment').AsBlob);

    Result := MailSender.SendEmail(......, Attachment);
end;

George


Try

    Attachment.CopyFrom(TMemoryStream(ParamValues.FindByName('Attachment').AsBlob),SizeOf(TMemoryStream(ParamValues.FindByName('Attachment').AsBlob)));

and see what happens

Depending on what MailSender.SendEmail is looking for you can also try

MailSender.SendEmail(TMemoryStream(ParamValues.FindByName('Attachment').AsBlob))


Roy Lambert

Roy,

Perfect, many thanks!

George