Folgender Beispiel-Code bindet den Datamatec Formatwandler in Ihren Arbeitsablauf ein: VFP Code: * Erzeuge Object obj=createobj("formatwandlerX.gdvkonv")
* Parameter: * Installationspfad * GDV Data Set * Zielpfad der Konvertierung * Format CSV oder XLS möglich * Codepage: 437 (ANSI) oder 1252
(Windows)
obj.action("d:\gdvkonv\","d:\gdvkonv\data.gdv","d:\ziel\","CSV",437)
* prüfe Ergebnis, hier muß der Text 'Fertig' stehen, sonst erscheint ein Fehlerhinweis messagebox( obj.infotext)
* Object löschen release obj VB Code: Dim obj As Object ‘ Erzeuge Object obj = CreateObject("formatwandlerX.gdvkonv")
‘ Parameter: ‘
Installationspfad ‘ GDV Data Set ‘ Zielpfad der Konvertierung ‘ Format CSV oder XLS möglich
obj.action("d:\gdvkonv\","d:\gdvkonv\data.gdv","d:\ziel\","CSV",437)
‘ prüfe Ergebnis, hier muß der Text 'Fertig' stehen, sonst erscheint ein Fehlerhinweis MessageBox( obj.infotext )
‘ Object löschen set obj = Nothing C# Code: int ncodes; System.Type obj = System.Type.GetTypeFromProgID("formatwandlerX.gdvkonv"); Object FWobj =Activator.CreateInstance(obj); ncodep = 1252; obj.InvokeMember("action",System.Reflection.BindingFlags.InvokeMethod, null, FWobj, new object[] { "d:\\gdvkonv\\", "d:\\gdvkonv\\data.gdv", "D:\\Ziel\\", "CSV", ncodep}); string meldung = (string) obj.InvokeMember("infotext", System.Reflection.BindingFlags.GetProperty, null, FWobj, null); MessageBox.Show(meldung); FWobj = null; obj = null; |