void FileStopAdc()
{
FileCreated=0;
FileWriteString(FileWriteBuff,512);
ClearFileWriteBuff();
f_close(&MyFile);
}
void AdcWriteFile()
{
if(!FileCreated)return;
//if(!fCreateNew)return;
if(FillFileBuffer(0, 512))
{
UartSendString("ADC store 512 \n");
FileWriteString(FileWriteBuff,512);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormLog::ButtonLogClick(TObject *Sender)
{
if(EditQRZ->Text=="") return;
int H;
AnsiString LogName = ThePath + "\\stream.adi";
if(FileExists(LogName))
{
H = FileOpen(LogName,fmOpenReadWrite);
if(H<0)
{
Application->MessageBox("Cannot write to log","IZ8BLY PSK31 Lab",MB_OK | MB_ICONSTOP);
return;
}
FileSeek(H,0,2);
}
else
{
H = FileCreate(LogName);
if(H<0)
{
Application->MessageBox("Cannot write to log","IZ8BLY PSK31 Lab",MB_OK | MB_ICONSTOP);
return;
}
FileWriteString(H,"Created by IZ8BLY PSK31 Lab\r\n<EOH>\r\n");
}
AnsiString Linea;
TDateTime TD;
if(UTCTimeLog)
{
SYSTEMTIME SystemTime;
GetSystemTime(&SystemTime);
TD = SystemTimeToDateTime(SystemTime);
}
else
{
TD = TDateTime().CurrentDateTime();
}
Linea = FormatAdif("CALL",EditQRZ->Text) +
FormatAdif("NAME",EditName->Text)+
FormatAdif("QTH",EditQTH->Text)+
FormatAdif("RST_RCVD",EditRSTReceived->Text)+
FormatAdif("RST_SENT",EditRSTSent->Text)+
FormatAdif("FREQ",EditFrequency->Text)+
FormatAdif("MODE","STREAM")+
FormatAdif("QSO_DATE",TD.FormatString("yyyymmdd"))+
FormatAdif("TIME_ON",TD.FormatString("hhmm"))+
FormatAdif("COMMENT",EditComments->Text)+
"<EOR>\r\n";
FileWriteString(H,Linea);
FileClose(H);
char oldclip[2048];
Clipboard()->GetTextBuf(oldclip,2048);
Clipboard()->SetTextBuf(Linea.c_str());
SendMessage(HWND_BROADCAST,IZ8BLY,0,0);
Clipboard()->SetTextBuf(oldclip);
ButtonLog->Enabled = false;
}
/**
* @brief Write logfile
*/
bool CConfigLog::DoFile(bool writing, String &sError)
{
CVersionInfo version;
String text;
m_writing = writing;
if (writing)
{
String sFileName = paths_ConcatPath(env_GetMyDocuments(NULL), WinMergeDocumentsFolder);
paths_CreateIfNeeded(sFileName.c_str());
m_sFileName = paths_ConcatPath(sFileName, _T("WinMerge.txt"));
if (!m_pfile->OpenCreateUtf8(m_sFileName.c_str()))
{
const UniFile::UniError &err = m_pfile->GetLastUniError();
sError = err.GetError();
return false;
}
m_pfile->SetBom(true);
m_pfile->WriteBom();
}
// Begin log
FileWriteString(_T("WinMerge configuration log\r\n"));
FileWriteString(_T("--------------------------\r\n"));
FileWriteString(_T("Saved to: "));
FileWriteString(m_sFileName.c_str());
FileWriteString(_T("\r\n* Please add this information (or attach this file)\r\n"));
FileWriteString(_T("* when reporting bugs.\r\n"));
FileWriteString(_T("Module names prefixed with tilda (~) are currently loaded in WinMerge process.\r\n"));
// Platform stuff
FileWriteString(_T("\r\n\r\nVersion information:\r\n"));
FileWriteString(_T(" WinMerge.exe: "));
FileWriteString(version.GetFixedProductVersion().c_str());
String privBuild = version.GetPrivateBuild();
if (!privBuild.empty())
{
FileWriteString(_T(" - Private build: "));
FileWriteString(privBuild.c_str());
}
text = GetBuildFlags();
FileWriteString(_T("\r\n Build config: "));
FileWriteString(text.c_str());
LPCTSTR szCmdLine = ::GetCommandLine();
ASSERT(szCmdLine != NULL);
// Skip the quoted executable file name.
if (szCmdLine != NULL)
{
szCmdLine = _tcschr(szCmdLine, '"');
if (szCmdLine != NULL)
{
szCmdLine += 1; // skip the opening quote.
szCmdLine = _tcschr(szCmdLine, '"');
if (szCmdLine != NULL)
{
szCmdLine += 1; // skip the closing quote.
}
}
}
// The command line include a space after the executable file name,
// which mean that empty command line will have length of one.
if (lstrlen(szCmdLine) < 2)
{
szCmdLine = _T(" none");
}
FileWriteString(_T("\r\n Command Line: "));
FileWriteString(szCmdLine);
FileWriteString(_T("\r\n Windows: "));
text = GetWindowsVer();
FileWriteString(text.c_str());
FileWriteString(_T("\r\n"));
WriteVersionOf1(1, _T("COMCTL32.dll"));
WriteVersionOf1(1, _T("shlwapi.dll"));
WriteVersionOf1(1, _T("MergeLang.dll"));
WriteVersionOf1(1, _T("ShellExtension.dll"));
WriteVersionOf1(1, _T("ShellExtensionU.dll"));
WriteVersionOf1(1, _T("ShellExtensionX64.dll"));
// WinMerge settings
FileWriteString(_T("\r\nWinMerge configuration:\r\n"));
FileWriteString(_T(" Compare settings:\r\n"));
WriteItemYesNo(2, _T("Ignore blank lines"), &m_diffOptions.bIgnoreBlankLines);
WriteItemYesNo(2, _T("Ignore case"), &m_diffOptions.bIgnoreCase);
WriteItemYesNo(2, _T("Ignore carriage return differences"), &m_diffOptions.bIgnoreEol);
WriteItemWhitespace(2, _T("Whitespace compare"), &m_diffOptions.nIgnoreWhitespace);
WriteItemYesNo(2, _T("Detect moved blocks"), &m_miscSettings.bMovedBlocks);
WriteItem(2, _T("Compare method"), m_compareSettings.nCompareMethod);
WriteItemYesNo(2, _T("Stop after first diff"), &m_compareSettings.bStopAfterFirst);
FileWriteString(_T("\r\n Other settings:\r\n"));
WriteItemYesNo(2, _T("Automatic rescan"), &m_miscSettings.bAutomaticRescan);
WriteItemYesNoInverted(2, _T("Simple EOL"), &m_miscSettings.bAllowMixedEol);
WriteItemYesNo(2, _T("Automatic scroll to 1st difference"), &m_miscSettings.bScrollToFirst);
WriteItemYesNo(2, _T("Backup original file"), &m_miscSettings.bBackup);
FileWriteString(_T("\r\n Folder compare:\r\n"));
WriteItemYesNo(2, _T("Identical files"), &m_viewSettings.bShowIdent);
WriteItemYesNo(2, _T("Different files"), &m_viewSettings.bShowDiff);
WriteItemYesNo(2, _T("Left Unique files"), &m_viewSettings.bShowUniqueLeft);
WriteItemYesNo(2, _T("Right Unique files"), &m_viewSettings.bShowUniqueRight);
WriteItemYesNo(2, _T("Binary files"), &m_viewSettings.bShowBinaries);
WriteItemYesNo(2, _T("Skipped files"), &m_viewSettings.bShowSkipped);
WriteItemYesNo(2, _T("Tree-mode enabled"), &m_viewSettings.bTreeView);
FileWriteString(_T("\r\n File compare:\r\n"));
WriteItemYesNo(2, _T("Preserve filetimes"), &m_miscSettings.bPreserveFiletimes);
WriteItemYesNo(2, _T("Match similar lines"), &m_miscSettings.bMatchSimilarLines);
FileWriteString(_T("\r\n Editor settings:\r\n"));
WriteItemYesNo(2, _T("View Whitespace"), &m_miscSettings.bViewWhitespace);
WriteItemYesNo(2, _T("Merge Mode enabled"), &m_miscSettings.bMergeMode);
WriteItemYesNo(2, _T("Show linenumbers"), &m_miscSettings.bShowLinenumbers);
WriteItemYesNo(2, _T("Wrap lines"), &m_miscSettings.bWrapLines);
WriteItemYesNo(2, _T("Syntax Highlight"), &m_miscSettings.bSyntaxHighlight);
WriteItem(2, _T("Tab size"), m_miscSettings.nTabSize);
WriteItemYesNoInverted(2, _T("Insert tabs"), &m_miscSettings.nInsertTabs);
// Font settings
FileWriteString(_T("\r\n Font:\r\n"));
FileWriteString(Fmt(_T(" Font facename: %s\r\n"), m_fontSettings.sFacename.c_str()));
FileWriteString(Fmt(_T(" Font charset: %d (%s)\r\n"), m_fontSettings.nCharset,
FontCharsetName(m_fontSettings.nCharset).c_str()));
// System settings
FileWriteString(_T("\r\nSystem settings:\r\n"));
FileWriteString(_T(" codepage settings:\r\n"));
WriteItem(2, _T("ANSI codepage"), GetACP());
WriteItem(2, _T("OEM codepage"), GetOEMCP());
WriteLocaleSettings(GetThreadLocale(), _T("Locale (Thread)"));
WriteLocaleSettings(LOCALE_USER_DEFAULT, _T("Locale (User)"));
WriteLocaleSettings(LOCALE_SYSTEM_DEFAULT, _T("Locale (System)"));
// Codepage settings
WriteItemYesNo(1, _T("Detect codepage automatically for RC and HTML files"), &m_cpSettings.bDetectCodepage);
WriteItem(1, _T("unicoder codepage"), getDefaultCodepage());
// Plugins
FileWriteString(_T("\r\nPlugins:\r\n"));
WriteItemYesNo(1, _T("Plugins enabled"), &m_miscSettings.bPluginsEnabled);
FileWriteString(_T(" Unpackers: "));
WritePluginsInLogFile(L"FILE_PACK_UNPACK");
WritePluginsInLogFile(L"BUFFER_PACK_UNPACK");
FileWriteString(_T("\r\n Prediffers: "));
WritePluginsInLogFile(L"FILE_PREDIFF");
WritePluginsInLogFile(L"BUFFER_PREDIFF");
FileWriteString(_T("\r\n Editor scripts: "));
WritePluginsInLogFile(L"EDITOR_SCRIPT");
if (IsWindowsScriptThere() == FALSE)
FileWriteString(_T("\r\n .sct scripts disabled (Windows Script Host not found)\r\n"));
FileWriteString(_T("\r\n\r\n"));
WriteArchiveSupport();
CloseFile();
return true;
}
