Datamatec Logo

Datamatec GmbH

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;
 

[Home] [Produkte] [Downloads] [Lizenzen] [Links] [AGBs] [Kontakt] [Impressum]