Babybaer

Kann mir einer ein Tip geben, wo ich ein ActiveX Control bekomme, dass es mir ermöglicht über einen Dialog mit einer Farbpalette, eine Farbe auszuwählen? Soll nichts aufwendiges sein. Ansonsten muss ich mir es halt selber Tippen ;-). THX

THX aber das ist es nicht gewesen. In meiner Class war was anderes Faul. Danke noch mal.

Hallo Leutz, VS.Net 7.0.1 ich habe mal wieder ein Problem. In meiner ListCtrl funkt das Sortieren nicht. Ich bekomme in der CALLBACK Funktion kein LPARAM lParam1 und LPARAM lParam2. Was mach ich falsch??? In der MSDN stehts genau so (fast). void CMyList::OnLvnColumnclickListdelta(NMHDR *pNMHDR, LRESULT *pResult) { NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR; *pResult = 0; SortInfo.pListCtrl = &m_ctrlListMsiDelta; SortInfo.iList = pNMListView->iSubItem; if(SortInfo.bSortDirection == true) SortInfo.bSortDirection = false; else SortInfo.bSortDirection = true; m_ctrlListMsiDelta.SortItems(CompareDelta, (DWORD)&SortInfo); for(int i = 0;i < m_ctrlListMsiDelta.GetItemCount(); i++) { m_ctrlListMsiDelta.SetItemData(i,i); } } int CALLBACK CompareDelta(LPARAM lParam1, LPARAM lParam2, LPARAM lParamSort) { STRUCKT_SORT_INFO *pSortInfo = reinterpret_cast<STRUCKT_SORT_INFO*>(lParamSort); //CString test = pSortInfo->pListCtrl->GetItemText(0,0); CString strItem1 = pSortInfo->pListCtrl->GetItemText(lParam1, pSortInfo->iList); CString strItem2 = pSortInfo->pListCtrl->GetItemText(lParam2, pSortInfo->iList); int iResult = 0; if(pSortInfo->iList == 0) { int a = atoi(strItem1); int b = atoi(strItem2); if(pSortInfo->bSortDirection == true) { if( a < b ) iResult = 1; else iResult = -1; }else if( a > b ) iResult = 1; else iResult = -1; } else { iResult = strcmp(strItem1, strItem2); if(pSortInfo->bSortDirection == true) iResult *= -1; } return iResult; }

MS C++ 7.0.1 Hallo Leutz, Ich habe einen Dlg auf den ich einem IDC_MESSAGE (Static Objekt), eine Nachricht aus meinem Thread zukommen lassen möchte. Leider bekomme ich das nicht hin. ICh habe schon fast alles versucht. Aber ich bekomme entweder den Falschen Fenserhandle oder keinen. An was liegt das. Solange ich nicht die Message aus dem Thread aus schicke funkt alles. SendMessage, PostMessage FindWindow und was es nicht alles gibt bringt scheinbar nichts. Ich weiß das ich auf ein anderes Objekt aus dem Thread zugreife aber wenn ich mit FindWindow das Handel bekomme dann müßte es doch gehen VERDAMMMMMT. Für eine Idee oder vielleicht ein Beispiel wäre ich Dankbar. //----------------------Code---------------- //.h DWORD WINAPI ThreadProc(PVOID pParam); MessageToDlg(CString csMessage) //.cpp DWORD WINAPI ThreadProc(LPVOID pParam) { CMSIDeltaDlg* pThis = static_cast< CMSIDeltaDlg* > ( pParam ); pThis->MessageToDlg(_T("TEST")); return 0; } void CMSIDeltaDlg::MessageToDlg(CString csMessage) { SetDlgItemText(IDC_MESSAGE,csMessage); }

Ok habs alles stimmt, habe einen kleinen Dreher in der Zeile LPCSTR szSQL = _T("INSERT INTO `Registry` (`Registry`,`Root`,`Key`,`Name`,`Value`,`Component _`) VALUES (?,?,?,?,?,?)"); ... //falsch result = MsiRecordSetString(hRecord, 1, _T("Test1")); result = MsiRecordSetString(hRecord, 2, _T("Test2")); result = MsiRecordSetInteger(hRecord, 3, 3); ... ... //richtig result = MsiRecordSetString(hRecord, 1, _T("Test1")); result = MsiRecordSetInteger(hRecord, 2, 3); result = MsiRecordSetString(hRecord, 3, _T("Test2")); ...

Hallo Leutz, ich versuche in ein bestehendes MSI Paket und in einer bestehenden Table, einen neuen Eintrag einzufügen. Leider bekomme ich immer wieder den Fehler 1627 (ERROR_FUNCTION_FAILED 1627L // Function failed during execution.) bei der Methode MsiViewModify. Warum? Was habe ich vergessen oder was mach ich falsch? //----------------------------------------- HRESULT hr = CoInitializeEx( NULL, 0 ); UINT result; LPCTSTR szPackagePath = _T("D:\\Pakete\\Adobe Reader 6.0 Deutsch\\Adobe Reader 6.0 Deutsch neu\\Adobe Reader 6.0 - Deutsch.msi"); PMSIHANDLE hDatabase = 0; PMSIHANDLE hRecord = 0; PMSIHANDLE hView = 0; if (ERROR_SUCCESS == MsiOpenDatabase(szPackagePath, MSIDBOPEN_TRANSACT, &hDatabase)) { LPCSTR szSQL = _T("INSERT INTO `Registry` (`Registry`,`Root`,`Key`,`Name`,`Value`,`Component_`) VALUES (?,?,?,?,?,?)"); result = MsiDatabaseOpenView(hDatabase, szSQL,&hView); if(result == ERROR_BAD_QUERY_SYNTAX){AfxMessageBox(_T("****** SQL!!!"));} if(result == ERROR_INVALID_HANDLE){AfxMessageBox(_T("Zugriff auf Installer verweigert!!!"));} if(result == ERROR_SUCCESS) { hRecord = MsiCreateRecord(6); if(hRecord) { result = MsiRecordSetString(hRecord, 1, _T("Test1")); result = MsiRecordSetString(hRecord, 2, _T("Test2")); result = MsiRecordSetInteger(hRecord, 3, 3); result = MsiRecordSetString(hRecord, 4, _T("Test4")); result = MsiRecordSetString(hRecord, 5, _T("Test5")); result = MsiRecordSetString(hRecord, 6, _T("Test6")); if(!result) result = MsiViewModify(hView,MSIMODIFY_INSERT, hRecord); if(!result) result = MsiViewClose(hView); if(!result) result = MsiDatabaseCommit(hDatabase); } } } if (hRecord) result = MsiCloseHandle(hRecord); if (hDatabase) result = MsiCloseHandle(hDatabase); CoUninitialize(); //-----------------------------------------

Vielleicht etwas unglücklich ausgedrückt. Ich meinte das, wenn ich mein Programm aus der Entwicklugsumgebung MS VS 7.1 starte bekomme ich eine Absturz meines Programmes. Starte ich aber die EXE alleine, dann läuft das Programm.

Ja das ist ja das komische. Das Programm läuft perfekt. Ohne einen Absturtz. Ich nehme mal an, das etwas anderes schief läuft, seitens MS ;-).

Das Problem tritt nur auf wenn ich das Programm aus dem Studio starte, als Release und Debug! Unbehandelte Ausnahme bei 0x77f667cd in test.exe: Benutzerhaltepunkt.

C++ MS V7.1 Hallo Leutz, ich finde leider keinen Fehler und trotzdem stürzt die Anwendung nach mehreren Wiederholungen (Button drucken) ab. CFileException ex; CStdioFile *stream = new CStdioFile ; if(stream->Open( (LPCTSTR)strDirName , CFile::modeRead, &ex)) { while( stream->ReadString(csZeile) || (! csZeile.IsEmpty())) { m_ctrlListbox.AddString(csZeile); } stream->Close(); } delete stream; Auch beim schreiben! Einer Idee warum. Einer Idee warum.

Genau und nun nimmst noch mein Beispiel und tragst den Returnwert als Pathname ein. fertig :-)

'Anlegen eines Excelobjekts Set ExcelObjekt = CreateObject("Excel.Application") 'Sichtbar machen ExcelObjekt.Visible = True 'Excelfile öffnen ExcelObjekt.Workbooks.Open "Excelfile+Path" 'Close Excel ExcelObjekt.ActiveWorkbook.Close SaveChanges:=False 'destroy all Excel-Objekte Set ExcelObjekt = Nothing

Danke werde mal die Idee prüfen.

Ok aber ich benutze kein WinSock von MS ich habe mir die Klasse selber geschrieben da ich kein ActiveX-Control einbinden kann. Also habe ich auch keine Methode SendData die etwas Konvertiert.

Über ein Socket (VB Klasse) Objekt, aber nicht WinSock. Ich habe versucht mich da an meine C++ Socket Klasse zu halten. Aber irgendwie kommen die Daten nicht so an wie aus meinem C++ Objekt.

mmm das ist etwas bescheiden zu erklären. Also ich habe einen Dienst der auf einem Port auf eine Antwort von meinem Programm wartet. Jetzt sollte er auch meine geschickten Daten auch lesen können. Vielleicht habe ich auch etwas falsch verstanden.

Hallo Leutz, Sprache: VB6 Mein Problem: Ich möchte z.B. &H0001 in ein Unicode 8Byte großen Block Konvertieren wie stelle ich das an? Einer eine Idee. Beispiel wäre super! Danke

Hallo Leutz vielleicht weiß jemand wie der Shellbefehl für den Gerätemanager ist (NT4.0). Also so wie für Eingabeaufforderung "CMD" ist. Danke

Hallo, ich versuche verzweifelt mit Hilfe eine ActiveX-DLL freigegebene Drucker auf einem Server auzulisten. Es funktioniert auch einwandfrei unter NT4 und Windows 2000. Bei Windows 2003 bekommen ich eine Fehlermeldung. Unable to list Printers, error: 0x80070005. Zugriff verweigert Die ASP Seite wird von einem IIS 6.0 unter Windows 2003 gehostet. Rufe ich die Seite aber über den internet Explorer von dem IIS auf, funktioniert es. Kann es sein, dass es da irgendwelche Probleme mit der Authentifizierung gibt? Danke.

Ich habe eine vb-externe.exe und eine externe.bas und ich importiere mit der vb-externe.exe das externe.bas in ein excelfile das ich vorher geladen habe (ExcelObjekt) 'Excelfile öffnen ExcelObjekt.Workbooks.Open "Excelfilepath" 'Import des Marcos ExcelObjekt.VBE.ActiveVBProject.VBComponents.Import "Macrofilepath\externe.bas" 'Ausführen einer Funktion in der externe.bas ExcelObjekt.Run "Funktionsname"

Habe es nun doch hin bekommen. Bevor hier noch Gerüchte auftauchen, dass das nicht geht. ExcelObjekt.Run "Funktionsname" Ist einfacher als ich dachte :marine

Also ich habe ein file.bas in einem Windows-Ordner. Ein Vb kein VBA Programm (standalone). Das mir Excel startet eine bestimmtes Excelfile einliest. Danach schiebe ich dem Excelfile das File 'file.bas' zu. Soweit tuts. Nun möchte ich das ich aus meiner VB.exe das File 'file.bas' (eine Funktion daraus) starten (natürlich auch mit Parametern wenn möglich). ... Set ExcelObjekt = CreateObject("Excel.Application") ExcelObjekt.Visible = False ExcelObjekt.Workbooks.Open Excelfile ExcelObjekt.VBE.ActiveVBProject.VBComponents.Import Macrofile hier soll jetzt file.bas gestartet werden .... sorry ich hoffe es ist jetzt verständlicher. :floet:

Hallo, ich benutze VB6 und habe eine Marco geschreiben das ich aus meinem VB-Programm in ein Excelfile hinein Importiert habe. Nun muss ich es nur noch starten können. Einer eine Idee? Beispiel wäre Super. THX

OK, keiner eine Ahnung, habs hinbekommen. Danke noch mal fürs mit hirnen. :marine Quellcode is etwas zu groß um es hier zu zeigen.

Hallo, ich arbeite mit VS7.NET und habe ein Problem mit IStorage und IStream. Vielleicht kann mir da jemand helfen. Ich brauche ein Storageobjekt mit einer bestimmten Ordner Struktur, dafür benötige ich eine Methode (wenn es vielleicht schon eine gibt) an der ich eine Pfad übergebe kann und Diese mir vom Root- bis zum letzten Subfolder und alle Files ( die Files in Streamobjekte) einliest und alles in ein Storageobjekt anlegt das ich weiter verarbeiten kann. Ein Beispiel wäre super. Ein einfache Ordnerstruktur anlegen bekomme ich hin aber sobald es mehre Rootordner existieren bekommt meine Methode einen Vogel :-(. HELP :confused: