bool KarisanStreamerConfig::loadStreams() { StreamNames *stream_names = new StreamNames() ; bool ret ; getStreamNames(stream_names) ; if(stream_names->Count <= 0) return(false) ; for(int idx = 0 ; idx < stream_names->Count ; idx++) { UnicodeString stream = stream_names->Strings[idx] ; StreamConfig *stream_config = new StreamConfig() ; stream_config->setName(stream.t_str()) ; loadStream(stream_config) ; _allstreams->insert(pair<int, StreamConfig *>(idx, stream_config)) ; } delete stream_names ; return(true) ; }
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) { HWND h = FindWindowA(UnicodeString("TMainForm").t_str(), UnicodeString("Прибор динамического рассеяния").t_str()); if (h) { if (ParamCount() > 0) { UnicodeString str = ParamStr(1); if (FileExists(str)) { /* char *buff = new char[str.Length()+1]; strcpy(buff, str.t_str()); */ TCopyDataStruct data; data.dwData = 0; data.cbData = str.Length()+1; data.lpData = str.t_str(); SendMessageA(h, WM_COPYDATA, 0, LPARAM(&data)); } } ShowWindow(h, SW_MAXIMIZE); BringWindowToTop(h); return 0; } try { Application->Initialize(); Application->MainFormOnTaskBar = true; Application->Title = "ПДР"; Application->CreateForm(__classid(TMainForm), &MainForm); Application->CreateForm(__classid(TOptionsForm), &OptionsForm); Application->CreateForm(__classid(TGradForm), &GradForm); Application->CreateForm(__classid(TAddGradForm), &AddGradForm); Application->CreateForm(__classid(TReportForm), &ReportForm); Application->CreateForm(__classid(TAdd2ReportForm), &Add2ReportForm); Application->CreateForm(__classid(TReportEditForm), &ReportEditForm); Application->CreateForm(__classid(TAutoProgressForm), &AutoProgressForm); Application->CreateForm(__classid(TGraphApproxForm), &GraphApproxForm); Application->CreateForm(__classid(TRecThreadStartForm), &RecThreadStartForm); Application->CreateForm(__classid(TStatusRecForm), &StatusRecForm); Application->CreateForm(__classid(TAdjustAngleAperForm), &AdjustAngleAperForm); Application->CreateForm(__classid(TTestRecForm), &TestRecForm); Application->Run(); } catch (Exception &exception) { //Application->ShowException(&exception); MainForm->Memo1->Lines->Add(exception.Message); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; }
void __fastcall TFScheduler::m_ToolSaveClick(TObject *Sender) { UnicodeString filename; int count = m_ls->Items->Count; if (count!=0) { TSaveDialog * save = new TSaveDialog(NULL); save->Filter = "Arquivos de texto (*.txt)|*.txt"; save->FilterIndex = 0; save->DefaultExt = "txt"; save->Options << ofOverwritePrompt; if (save->Execute()) { filename = save->FileName; } if (!filename.IsEmpty()) { FILE * fileStatus; fileStatus = fopen(filename.t_str(),"w"); fprintf(fileStatus,"\nArquivo de Log do Escalonador\n"); fprintf(fileStatus,"Fila Circular com Prioridades Estáticas\n"); fprintf(fileStatus,"---------------------------------------\n\n"); fprintf(fileStatus,"Gerência de Processos:\n\n"); UnicodeString item; int rows = m_status->RowCount; for (int i = 0; i < rows; i++) { for (int j = 0; j < 4; j++) { UnicodeString tab = "\t"; if (i==0 && j==2) tab="\t\t"; if (i>=1 && j==1) tab="\t\t"; item += m_status->Cells[j][i] + tab; } item += "\n"; fprintf(fileStatus,item.t_str()); item = ""; } fprintf(fileStatus,"\nStatus de Processos:\n\n"); int rowList = m_ls->Items->Count; UnicodeString titleItem = m_ls->Column[0]->Caption + "\t" + m_ls->Column[1]->Caption + "\n"; fprintf(fileStatus,titleItem.t_str()); for (int i = 0; i < rowList; i++) { UnicodeString itemList = m_ls->Items->Item[i]->Caption; UnicodeString subitemList = m_ls->Items->Item[i]->SubItems->Text; UnicodeString lineItem = itemList + "\t\t" + subitemList; fprintf(fileStatus,lineItem.t_str()); } fclose(fileStatus); MessageBox(NULL,"Arquivo gerado com sucesso.","Escalonador",MB_OK|MB_ICONINFORMATION); } } }