티스토리 뷰

ETC

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

Think Hub 2019. 7. 9. 21:26

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;

 

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

'ETC' 카테고리의 다른 글

(URL) 인터넷 아카이브(Internet Archive)  (0) 2019.07.19
(i) Run ASP.NET Core 2.0 Project after Installing IIS on Windows Server 2016  (0) 2019.07.11
(i) MSSQL 자동 증가값 세팅 및 초기화( IDENTITY)  (0) 2019.07.05
(URL) Creating Virtual Serial Ports with com0com  (0) 2019.07.04
(URL) INSTALL MSSQL SERVER 2016  (0) 2019.07.04
댓글