(i) MSSQL + DELPHI + varbinary + INSERT + TUniQuery

CREATE TABLE [dbo].[COMP](

...

[PWD] [varbinary](255) NULL,

...

 

----------------------------------------------------------------------

 

sm: TStream;

btPWD: TBytes;

sm := TMemoryStream.Create;

 

Loop()

{

    INSERT INTO ... CAST( :PWD as varBinary(255) ) ...

 

    sm.Seek( 0, soBeginning );
    sm.Write( btPWD,  Length(btPWD) );
    sm.Position := 0;
    Qry.ParamByName('PWD').LoadFromStream( sm, ftGraphic );

}

 

sm.free;

 

----------------------------------------------------------------------