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; }