Чт янв 25, 2018 13:39:03
Чт янв 25, 2018 14:20:50
Пт янв 26, 2018 14:41:13
Пт мар 09, 2018 12:11:39
Сб мар 10, 2018 16:53:10
Вт фев 26, 2019 06:28:42
Ср июл 24, 2019 15:00:12
Чт июл 25, 2019 00:11:17
Вт сен 17, 2019 22:16:34
Пн янв 18, 2021 12:47:53
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.