Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Сохранить значение текстовой переменной в файле

01.01.2007
  Declare 
   
@Stream int,
   
@Buffer varbinary(8000),
    @HR
int
 
 
Exec @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
 
Exec @HR = sp_OASetProperty @Stream,'Type',1
 
Exec @HR = sp_OAMethod @Stream,'Open'
 
Set @Buffer = cast(@MyVariable as varbinary(8000))
 
Exec @HR = sp_OAMethod @Stream,'Write',null, @Buffer
 
Exec @HR = sp_OAMethod @Stream, 'SaveToFile',Null,'c:\MyFile.txt',2
 
Exec @HR = sp_OAMethod @Stream, 'Close'
 
Exec @HR = sp_OADestroy @Stream

Автор: Vit