SELECTblob "Table"."Pole1"  
    INTO :lblob1  
    FROM "Table"  
   WHERE "Table"."Pole2" = :INPUT
	using sqlca;
ole_1.ObjectData =lblob1
	
if POS(OLE_1.ClassLongName,'Word') >  0  then

	ole_1.activate(OffSite!)

ole_1.object.application.Selection.WholeStory
ole_1.object.application.Selection.Copy

rte_1.paste()

garbagecollect()
ole_1.object.application.quit()
OLE_1.object.DisconnectObject()

k1 =  rte_1.Find("Критерий поиска",TRUE, TRUE, FALSE, FALSE)
end if

Function ulong GetTempPathA(ulong nBufferLength, ref string lpBuffer) Library "KERNEL32.DLL"// Alias for "GetTempPathA"\nFunction long GetTempFileName(string lpszPath,string lpPrefixString, UINT uUnique,ref string lpTempFileName) Library "kernel32.dll" Alias for "GetTempFileNameA"\nFUNCTION ulong  CreateFileA( ref string lpFileName , ulong lpPrefixString, ulong dwShareMode, ref string lpSecurityAttributes, ulong dwCreationDisposition,  ulong dwFlagsAndAttributes,  ulong hTemplateFile) LIBRARY "Kernel32.dll"\nFunction Boolean CloseHandle(Ulong hObject) Library "kernel32.dll"\nFUNCTION boolean  WriteFile(ulong hFile, ref blob lpBuffer,  ulong nNumberOfBytesToWrite, ref  ulong lpNumberOfBytesWritten, ref string lpOverlapped) LIBRARY "Kernel32.dll"  

$PBExportHeader$create_temp_file.srf\nglobal type create_temp_file from function_object\nend type\n\nforward prototypes\nglobal function string create_temp_file (blob bl)\nend prototypes\n\nglobal function string create_temp_file (blob bl);ulong l,p1,rez,lpPrefixString,dwShareMode,dwCreationDisposition,dwFlagsAndAttributes,hTemplateFile\nULONG hFile,nNumberOfBytesToWrite,lpNumberOfBytesWritten\nlong li_FileNum,rez_write,i,POR_NOM,lu_val\nstring lpPathBuffer,szTempName,str,lpFileName,lpSecurityAttributes,lpOverlapped,ls_username\nboolean b_rez\nblob lpBuffer\n\n\nIF isNull(bl) = false THEN\n\t\n\tlpPathBuffer = Space(  260  )\n\t\t\tszTempName = Space(  260  )\n\t\t\t/*******************************\n\t\t\t*\tВызов GetTempPathA   \t\t *\n\t\t\t*******************************/\n\t\t\t//GetTempPathA( 260 ,lpPathBuffer)\n\t\t\t/*******************************\n\t\t\t*\tВызов GetTempFileName  \t\t *\n\t\t\t*******************************/\n\t\t\t//rez = GetTempFileName(lpPathBuffer, \'NEW\',  0 , szTempName) //rez =  0  - fail\n\t\t\t\n\t\t\tl = setnull(l)\n\t\t\t//-----------CreateFileA-----------------\n\t\t\tszTempName = \'c:\\Temp\\TEMP_FILE_FROM_BLOB\'\n\t\t\tlpPrefixString =  2 \n\t\t\tdwShareMode =  4 \n\t\t\tSetNull(lpSecurityAttributes)\n\t\t\tdwCreationDisposition =  4 \n\t\t\tdwFlagsAndAttributes =  128 \n\t\t\tSetNull(hTemplateFile)\n\n\thFile = CreateFileA(szTempName, lpPrefixString, dwShareMode, lpSecurityAttributes, dwCreationDisposition, dwFlagsAndAttributes, hTemplateFile)\n\t\t\t\n\t\t\tlpBuffer = bl\n\t\t\tnNumberOfBytesToWrite = len(bl)\n\t\t\tSetNull(lpOverlapped)\n\nb_rez = WriteFile(hFile, lpBuffer ,  nNumberOfBytesToWrite, lpNumberOfBytesWritten, lpOverlapped)\n\t\t\t\n\t\t\tCloseHandle(hFile)\n\t\tend if\n\t\t\n\treturn\tszTempName\nend function\n