Галактика в вопросах и ответах

Код: Выделить всё

Interface InsFotoEx;

Public Procedure InsFotoRtf ( RtfPath, RtfName : string; h, x, y : LongInt );
{
 InsFoto ( RtfPath, RtfName, h, x, y );
};
END.

Код: Выделить всё

.{table tl_p
.begin
PathParam:=GetStringParameter(‘Files’, ‘OutputFilesDirectory’, 0);
ExportMemoToFile(appendix.contents, PathParam+‘Tmp.BMP’, false);
InsFoto(PathParam, ‘rep0.rtf’, 4, 0, 0);
end.
 ^
.}

Код: Выделить всё

//Z_STAFF::SPRMESR - картотека - печать- Справка с места работы
#component "Z_STAFF"
#DEFINE _NO_PHOTO_
#include TStMailSend.vih

alter interface SPRMESR
  ( '')
;
  overload
  end;
create view NSPRMESR  
as select Appendix.Contents
from Appendix
Where
((
            1 == Appendix.ObjBlock     and
 Persons.Nrec == Appendix.Person       and
          200 == Appendix.ObjType
))
;
  
var tFoto : comIMailSend;
var strTmp:string ; 
var SprMesR_Type:string; 
HandleEvent  
cmInit:
{ //message('1')
  SaveMyDsk('SprMesR_060_1','SprMesR_Type')
//'SprMesR_060_1' - для возможности переключения в форме координат вывода фото.
  Inherited::HandleEvent(cmInit) 
  //message('2')
  strTmp := GetStringParameter('Files', 'OutputFilesDirectory', 0) + 'tmp.bmp';
  IF true // (not FrmSprMesR.error)
  { DeleteFile(strTmp);
    if Not ReadMyDsk(SprMesR_Type,'SprMesR_Type',true) SprMesR_Type:='SprMesR_060_1'
    if(GetFirst Appendix = tsOK)
    { ExportMemoToFile(Appendix.Contents, strTmp, false);
      PutFileToClient(UserPathVip + 'tmp.bmp', false);
      PutFileToClient(UserPathVip + 'SprMesR.rtf', false);
      if true
      {tFoto := comIMailSend(new(coMailSend));
       case SprMesR_Type of
       'SprMesR_060_1':tFoto.OLE_ADD_FOTO(ExDirectoryOut, 'SprMesR.rtf',3,3,15);
       else tFoto.OLE_ADD_FOTO(ExDirectoryOut, 'SprMesR.rtf',3,4,17);
       end;
      }
      else
      { INSFOTO(ExDirectoryOut, 'SprMesR.rtf',3,4,17); 
      }
      // высота,положение по высоте, положение по горизонтали
    }
  }  
  abort ;
  closeinterface(cmDone)
}
end;
end.