VCL (C++ Builder)

• L

  Hilfe beim TXMLDocument
  • LuksSoftware  

  3
  0
  Stimmen
  3
  Beiträge
  718
  Aufrufe

  ?

  Bei XML-Elementen gibt es Text und Attribute. //Nur Text <temperature>Temperatur</temperature> //Nur Attribute [code="cpp"]<temperature value="281.661" min="281.661" max="281.661" unit="kelvin"/> //Text und Attribute <temperature value="281.661" min="281.661" max="281.661" unit="kelvin">Aktuelle Temperatur</temperature> Zuerst mußt du den Knoten "temperature" finden. Dazu gibt es mehrere Möglichkeiten. Der Ausgangspunkt ist der übergeordnete Knoten. 1. In einer Schleife alle Knoten durchgehen for(int i=0;i < NodeParent->ChildNotes->Count;i++) { if(NodeParent->ChildNotes->Nodes[i]->NodeName == L"temperature") { NodeParent->ChildNotes->Nodes[i]->Text NodeParent->ChildNotes->Nodes[i]->GetAttribute(L"XXXX") } } 2. Den Knoten suchen IXMLNode *NodeTemp = NodeParent->ChildNodes->FindNode(L"temperature"); if(NodeTemp != NULL) { // NodeTemp->Text = enthält "Aktuelle Temperatur" OleVariant ovValue = NodeTemp->GetAttribute(L"value"); if(ovValue.IsNull() == false) { // ovValue enthält "281.661" // Wert verarbeiten z.B. mit: System::UnicodeString usValue = ovValue; } ovValue = NodeTemp->GetAttribute(L"min"); if(ovValue.IsNull() == false) { .... } } Ich hoffe, das hilft dir weiter. Es ist nicht getestet, ich habe es nur aus dem Gedächtnis aufgeschrieben. So in etwa müßte es aber funktionieren. Noch ein Hinweis: Bei xx->NodeName, FindNode() und GetAttribute() unbedingt auf Groß-/Kleinschreibung achten. NodeTemp->GetAttribute(L"value") = ok NodeTemp->GetAttribute(L"Value") = Fehler bzw. NULL
• J

  Indy Client in dll
  • JnZn558  

  1
  0
  Stimmen
  1
  Beiträge
  562
  Aufrufe

  J

  Hallo, ich habe ein dll mit XE8 geschrieben und darin Indy tcp client reingepackt. Dabei bekomme ich ein crash, komme da nicht so weiter. das ist main.cpp // Important note about DLL memory management when your DLL uses the // static version of the RunTime Library: // // If your DLL exports any functions that pass String objects (or structs/ // classes containing nested Strings) as parameter or function results, // you will need to add the library MEMMGR.LIB to both the DLL project and // any other projects that use the DLL. You will also need to use MEMMGR.LIB // if any other projects which use the DLL will be performing new or delete // operations on any non-TObject-derived classes which are exported from the // DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling // EXE's to use the BORLNDMM.DLL as their memory manager. In these cases, // the file BORLNDMM.DLL should be deployed along with your DLL. // // To avoid using BORLNDMM.DLL, pass string information using "char *" or // ShortString parameters. // // If your DLL uses the dynamic version of the RTL, you do not need to // explicitly add MEMMGR.LIB as this will be done implicitly for you #include <windows.h> #include "ZLibrary.h" #pragma hdrstop #pragma argsused int WINAPI DllEntryPoint( HINSTANCE hinst, unsigned long reason, void* lpReserved ) { switch ( reason ) { case DLL_PROCESS_ATTACH: break; case DLL_THREAD_ATTACH: break; case DLL_THREAD_DETACH: break; case DLL_PROCESS_DETACH: { CleanSocket(); } break; } return TRUE; } das ist ZLibrary.h #ifndef ZLIBRARY_H #define ZLIBRARY_H #ifdef __cplusplus #define ZMANGLING_NAME extern "C" #else #define ZMANGLING_NAME #endif struct ZParameter { unsigned short Port; char IP[ 15 ]; char IdToken[ MAX_PATH ]; }; #ifdef ZFEEDER_EXPORTS #define ZFEEDER_API ZMANGLING_NAME __declspec( dllexport ) #else #define ZFEEDER_API ZMANGLING_NAME __declspec( dllimport ) typedef void __stdcall ( *pfnInitSocket )( ZParameter& parameter ); typedef void __stdcall ( *pfnCleanSocket )(); #endif ZFEEDER_API void __stdcall InitSocket( ZParameter& parameter ); ZFEEDER_API void __stdcall CleanSocket(); #endif das ist ZLibrary.cpp #include <IdTCPClient.hpp> #include "ZLibrary.h" #pragma link "IndyCore.bpi" class ZConnectThread; class ZEvent; TIdTCPClient* g_pClient = NULL; ZConnectThread* g_pConnectThread = NULL; ZEvent* g_pEvent = NULL; ZParameter g_Parameter = { 0 }; class ZConnectThread: public TThread { protected: TIdTCPClient* m_pClient; void __fastcall Execute(); public: ZConnectThread( TIdTCPClient* pClient ); }; class ZEvent { public: void __fastcall OnConnected( TObject *Sender ); void __fastcall OnDisconnected( TObject *Sender ); }; void __fastcall ZEvent::OnDisconnected( TObject *Sender ) { if ( g_pConnectThread && g_pConnectThread->CheckTerminated() ) { // g_pConnectThread->Start(); } } void __fastcall ZEvent::OnConnected( TObject *Sender ) { } ZConnectThread::ZConnectThread( TIdTCPClient* pClient ) { this->m_pClient = pClient; } void __fastcall ZConnectThread::Execute() { while ( !this->Terminated && !this->m_pClient->Connected() ) { try { this->m_pClient->Connect(); } catch( const EIdSocketError& ex ) { Sleep( 1000 ); } } } ZFEEDER_API void __stdcall InitSocket( ZParameter& parameter ) { g_Parameter = parameter; if ( !g_pClient ) g_pClient = new TIdTCPClient; if ( g_pClient ) { g_pClient->Host = parameter.IP; g_pClient->Port = parameter.Port; if ( !g_pEvent ) g_pEvent = new ZEvent; if ( !g_pConnectThread ) { g_pConnectThread = new ZConnectThread( g_pClient ); if ( g_pConnectThread ) g_pConnectThread->FreeOnTerminate = false; } if ( g_pEvent ) { g_pClient->OnConnected = g_pEvent->OnConnected; g_pClient->OnDisconnected = g_pEvent->OnDisconnected; } /* g_pClient->OnDisconnected = g_pEvent->OnDisconnected; g_pClient->OnWork = g_pEvent->OnWork; */ } } ZFEEDER_API void __stdcall CleanSocket() { if ( g_pConnectThread ) { g_pConnectThread->Terminate(); g_pConnectThread->WaitFor(); delete g_pConnectThread; } if ( g_pClient ) { if ( g_pClient->Connected() ) // hier kommt es zum crash g_pClient->Disconnect(); delete g_pClient; } }
• ?

  Dll Debuggen
  • Gast  

  4
  0
  Stimmen
  4
  Beiträge
  650
  Aufrufe

  M

  Erste Möglichkeit: Du lädst Dein DLL-Projekt in der IDE und startest dann die Exe. Wenn die Exe gestartet ist gehst du ins Menu Start und wählst bei "Mit Prozess verbinden" Deine Exe. Zweite Möglichkeit: Du lädst Dein DLL-Projekt in der IDE dann gehst Du im Menu Start auf Parameter und trägst unter Hostanwendung Deine Exe ein. Jetzt startest Du Dein DLL-Projekt genau so als ob es ein Exe-Projekt wäre.
• ?

  Daten empfangen von SPS?
  • Gast  

  4
  0
  Stimmen
  4
  Beiträge
  714
  Aufrufe

  ?

  -von welchem Hersteller ist die SPS? -geht es über ein "Standard"-Protokoll/Schnittstelle der SPS (manche haben sowas)? manche Kunden gehen diesen Weg (wenn moeglich) -in manchen SPSen kann man auch selber TCP/IP-Verbindungen aufbauen und z.B. Daten in einem "habs-mir-selber-ausgedacht" Format verschicken - Es gibt Kunde die es so machen
• L

  Mysteriöses Verhalten in Zusammenhang mit Bitmap-&gt;Assign(...)?
  • Leo Freitag  

  5
  0
  Stimmen
  5
  Beiträge
  892
  Aufrufe

  L

  audacia schrieb: Da gibt es im Linker-Tab in den Projekteinstellungen ein Häkchen namens "Mit Debug-Bibliotheken", das du anwählen mußt. Und halt ohne Laufzeitpackages linken wie oben beschrieben. Ok, funktioniert! Jetzt steppe ich durch jede Menge Delphi-Code ... audacia schrieb: (...) deshalb, weil du dir jegliche Frage zum Verhalten von RTL und VCL selbst beantworten kannst, wenn du einfach im Quelltext nachschaust. Äh, öh, einfach nachschauen? Ich suche ja nach einer Antwort auf die Frage, warum die Darstellungsgröße eines Bildes beim ersten Aufruf 'so' und bei jedem weiteren Aufruf 'so-nicht' ist. Dazu durchsteppe ich den Code nach Eigenschaften wie Bitmap-Size, Screen-Size etc. und verliere mich schließlich in einer Schleife der Function GetHashCode, aus der der Debugger nicht wieder raus will ... Also, vielen Dank für den aufgezeigten Weg, nur mit "einfach im Quelltext nachschauen" ist es für mich nicht getan. Gibt es vielleicht einen anderen Lösungsansatz? Gruß Leo
• ?

  Chat Programm - UDP Indy Komponenten ?
  • Gast  

  4
  0
  Stimmen
  4
  Beiträge
  856
  Aufrufe

  ?

  UDP? You don't care about the integrity of the chats?
• ?

  AV bei Aufruf von LoadLibraryW
  • Ein ehemaliger Benutzer  

  9
  0
  Stimmen
  9
  Beiträge
  2309
  Aufrufe

  ?

  Ich habe einen Workaround für die DLL-RTL-Geschichte gefunden: https://www.c-plusplus.net/forum/p2454897#2454897 Gruß Kerem
• ?

  STL in DLL, gelinkt mit dynamischer RTL
  • Ein ehemaliger Benutzer  

  6
  0
  Stimmen
  6
  Beiträge
  2538
  Aufrufe

  ?

  Hallo zusammen, offensichlich gibt es von Embarcadero einen Wokraround für dieses Problem: If you dynamically load a DLL, you cannot link dynamically with the runtime library. Otherwise, an Access Violation occurs when the program terminates. There are two workarounds: One workaround is to not check "Dynamic RTL" on the Project>Options>C++ Linker page (this turns off dynamic linking for the RTL). The second workaround, which enables the use of dynamic linking for the RTL, is to define _DLL_UNLOAD_WORKAROUND in the "Conditional defines" field on Project>Options>Directories and Conditionals. http://edn.embarcadero.com/article/39758#RADStudio2010ReleaseNotes-VCL%2FRTLNotes In meinem Testprojekt (EXE lädt DLL mit LoadLibrary. EXE ruft Funktion von DLL auf. Funktion enthält ss<<1) habe ich die genannte Bedingung bei der DLL hinzugefügt. Der Fehler tritt jetzt nicht mehr auf... Gruß Kerem
• ?

  nicht durchführbare Umwandlung von 'tagVECTOR3D' in 'TVector3D'
  • Gast  

  3
  0
  Stimmen
  3
  Beiträge
  649
  Aufrufe

  

  Hallo, tagVECTOR3D K = Viewport3D1->Context->CurrentCameraMatrix.M[1]; müsste dann die Entsprechung für C++ sein. Und dann entweder per K.V[x] // wobei x = 0 - 3 oder explizit mittels K.X K.Y K.Z K.W auf die einzelnen Werte zugreifen. Die "tag..." Typen in C++ sind reine Datenstrukturen, während die "T..." den Delphi-Klassen entsprechen.
• ?

  FMX: Beliebig viele TCube dynamisch zur Laufzeit erstellen?
  • Gast  

  2
  0
  Stimmen
  2
  Beiträge
  621
  Aufrufe

  ?

  Man muss wohl neben Parent auch wohl unbedingt SetSize() angeben. Dachte das hätte einen sichtbaren Standardwert. Dem war wohl nicht so. TCube *Cube = new TCube(Dummy1); Cube->Parent = Dummy1; Cube->SetSize(1,1,1); Das löschen habe ich jetzt so realisiert: void __fastcall TForm1::Button2Click(TObject *Sender) { for (int i=0;i<Dummy1->ComponentCount;i++) { Dummy1->Components[i]->Free(); } Dummy1->Repaint(); } Damit hat sich meine Frage wohl erledigt. Es sei jemand hat hierzu noch eine Anmerkung.
• ?

  TFrame als BPL/DCU dynamisch einbinden?
  • Gast  

  2
  0
  Stimmen
  2
  Beiträge
  449
  Aufrufe

  A

  Du kannst deine Frames in Packages kompilieren, die du dann mit LoadPackage() lädst. (Dafür muß deine Anwendung natürlich mit den Laufzeitpackages gelinkt werden.)
• ?

  Firemonkey: Wie erstellt man ein 3D Polygon?
  • Gast  

  1
  0
  Stimmen
  1
  Beiträge
  512
  Aufrufe

  ?

  Hallo. Ich habe mir die Rad Studio XE Demo installiert, weil ich das Firemonkey 3D unbedingt endlich mal ausprobieren möchte. Ich habe ein älteres Programm, wo ich Schnitte aus Polygonen darstelle (Punkteliste x und y), als ein Rahmen oder als ausgefüllte Fläche. Ich würde diese Ansicht gern in 3D darstellen und rotieren und zoomen wollen. Ist dies mit wenigen möglich Änderungen möglich? Kennt hier jemand ein Tutorial oder hat eventuell ein kleines Beispiel genau für diesen Fall? Soweit ich mich eingelesen habe, besteht ja ein 3D Objekt aus vielen Dreiecken. Ich habe aber nur eine Punkteliste die in Uhrzeigersinn dann miteinander verbunden werden. Man könnte tricksen und anstatt eines Polygons einfach viele einzelne Striche zeichnen, aber weder kann ich so die Fläche befüllen, noch die "Striche" eine Dicke geben, damit man diese besser erkennt. Wäre über jede Hilfe Dankbar. Hoffe das ist das richtige Forum. Ein FireMonkey Forum fehlt leider hier noch.
• L

  Nach Item in ListBox suchen
  • LuksSoftware  

  5
  0
  Stimmen
  5
  Beiträge
  1204
  Aufrufe

  L

  Danke für die Tipps, das mit dem Hochzählen von i hat funktioniert!
• ?

  Bildausschnitt kopieren
  • Gast  

  2
  0
  Stimmen
  2
  Beiträge
  666
  Aufrufe

  

  Um einen Ausschnitt zu kopieren, kannst du die TCanvas.CopyRect-Funktion benutzen. Aber warum zeichnest du die anderen kleineren Images nicht sofort in das Hintergrundimage rein (z.B. im TPaintBox.OnPaint-Ereignis direkt die Images zeichnen)?
• M

  Zwei Bilder vergleichen...
  • MiG  

  14
  0
  Stimmen
  14
  Beiträge
  6754
  Aufrufe

  S

  audacia schrieb: Außerdem war dieser Thread 12 Jahre lang unberührt, bevor snwFlake meinte, ihn durch einen wichtigen Nachtrag wiederbeleben zu müssen. Für gewöhnlich suche ich nicht erst nach dem Datum wenn ein Thread ganz oben als unread auftaucht....!
• P

  Prüfprotokoll als PDF erzeugen
  • Propagandapanda  

  3
  0
  Stimmen
  3
  Beiträge
  1880
  Aufrufe

  I

  Für unsere Protokolle verwenden wir sehr glücklich folgende Technologie zum direkten Erzeugen von PDF-Prüfprotokollen: http://www.heise.de/ix/artikel/Der-saubere-Weg-506891.html Als Vorlagendesigner nutzen wird eine Clicki-Bunti-Umgebung: http://www.digiforms.com/htmlViewer?documentName=platform&templateName=designer-standard Vorher hatten wir CrystalReports, was absolut unflexibel und zu selbstständig ist. Die hier vorgschlagene Lösung gefällt uns am besten, das sich an offene Webstandards gehalten wird und es eine gute Auswahl an Formulardesignern gibt. Alles basiert auf Textdateien was ein schnelles Patchen vor Ort beim Kunden ermöglicht, ohne eine Laptop mit Designer-Lizenz dabei haben zu müssen.
• R

  Button sind nicht aktiv
  • Robbiani  

  3
  0
  Stimmen
  3
  Beiträge
  729
  Aufrufe

  R

  Nein leider kein Treffer. So wie es empfolen ist habe ich einen ActiomManager. Von dort schiebe ich die Buttons an ihre Positionen. Im Robbon funktionierts bestens. Nur nicht in der QuickAccess liste. Warum auch immer. Gruss Renato
• _

  TThread Exception Handling
  • _Stephan_  

  3
  0
  Stimmen
  3
  Beiträge
  833
  Aufrufe

  _

  Th69 schrieb: Die Suche nach "Delphi Thread Exception" hat folgende Links gefunden... Danke für die Info, einen Teil hatte ich auch schon gefunden, den Rest muß ich in Ruhe nochmals genau durcharbeiten. Das Problem ist nicht, wie ich die Exceptions abfange, sondern wie ich durch die Exception zur Laufzeit am besten auf den Fehler kommen. Hier hätte ich wie in meinem Mainthread gerne Stacktraces. MfG Stephan
• R

  LoadFromFile bei geöffneter Datei
  • rudpower  

  9
  0
  Stimmen
  9
  Beiträge
  2068
  Aufrufe

  A

  rudpower schrieb: Ich soll also die andere Software über CreateProcess starten? Diese Software ist nicht von mir. Das eine widerspricht doch dem anderen nicht. Du schreibst doch oben, daß du die andere Anwendung startest; habe ich das falsch verstanden? rudpower schrieb: Außerdem müssen dort noch einige Benutzereingaben gemacht werden bevor die Dateien erzeugt werden. Aha. Ich bin jetzt davon ausgegangen, daß das andere Programm halt seine Arbeit tut, die Ergebnisse in eine Datei schreibt und sich dann beendet. Falls dem nicht so ist, dann beschreibe doch mal das Interationsmuster etwas detaillierter.
• M

  Komponenten in eigener Funktion benutzen???
  • MichelM  

  24
  0
  Stimmen
  24
  Beiträge
  3785
  Aufrufe

  M

  Wieso schreibst du in einen 7 Jahre alten Thread und wo hast Du Form4 = new TForm4(static_cast<void *> (NULL)); her. Der Compiler sagt dir es gibt keinen Konstruktor der einen void-Zeiger als Parameter hat.