program test_hard_copy;        // НЕ РАБОТАЕТ  !!!   ДЛЯ PCX и BMP
                               //ПОРТИТ заголовок и добавляет в конец 0D0A
                               // для HPG работает нормально
                               //serg-el 12.01.2021                           
                               
                               
const gpib_address=3;                //адрес GPIB осциллографа
const Directory='C:\Incoming';       // осциллограф должен быть настроен на Talk/Listen
const MakeModel='TDSxxx';

var
    Filename:string;
    Filecontents:string;
    Make:string;
     
 begin 
   
    EZGPIB_ScreenClear;
    EZGPIB_FileClearBuffer;
    EZGPIB_BusAutoOff;
 
     EZGPIB_BusIFC;
     EZGPIB_BusWriteData(gpib_address, 'HARDCOPY:PORT GPIB');
     EZGPIB_BusWriteData(gpib_address, 'HARDCOPY:FORMAT HPG');
     EZGPIB_BusWriteData(gpib_address, 'HARDCOPY:LAYOUT LANDSCAPE');
     EZGPIB_BusWriteData(gpib_address, 'HARDCOPY START');
     EZGPIB_TimeSleep(3);
     EZGPIB_BusWriteData(gpib_address, '++read');
     
     EZGPIB_BusWaitForDataBlock(gpib_address,filecontents,3);
     EZGPIB_FileAddToBuffer (filecontents);
     
     Filename := Directory+'\';
     EZGPIB_ConvertAddToString(Make,MakeModel + ' ');
     EZGPIB_ConvertAddToString(Make,EZGPIB_TimeNow);
     Make := AnsiReplaceText ( Make, ':', '_');        //Замена недопустимых символов в имени файла
     EZGPIB_ConvertAddToString(Filename,Make);
     EZGPIB_ConvertAddToString(Filename,'.HPG');       
     EZGPIB_FileWrite(Filename);                       // Save File
 end.