Unterschrift in Formular setzen

Question

Hallo NG

Ich arbeite mit Vfp9 und habe für ein Tablet ein einfaches Servicerapport-Formular programmiert.
Nach der Erfassung der Daten wird ein Pdf (via Excel) generiert. Funktioniert alles, bis auf die Unterschrift des Kunden. Meine Idee wäre, dass der Kunde auf dem Tablet (mit Stift) unterschreibt und diese via Gif oder bmp im Excel eingefügt wird. Kennt jemand ein App oder Prog das mit Fox zusammenspielt? Oder gibts andere Ansatzmöglichkeiten? Besten Dank für jeden Tipp

Freundliche Grüsse

Adi

Answer 1

Hi Adi,

ich habe vor einiger Zeit mal einen Blogbeitrag dazu verfasst. Da sind ein paar evtl. für Dich hilfreiche Links drin.

http://tomsvfpblog.blogspot.de/2011/12/erstellen-von-tablet-pc-anwendungen-mit.html

Es dreht sich zwar in erster Linie um Schrifterkennung innerhalb von VFP Apps, aber mit Hilfe von GDI+ von der VFPX-Codeplex Seite kannst Du, anstatt die Stifteingabe in Text zu wandeln, eine Hardcopy erstellen.

http://vfpx.codeplex.com/wikipage?title=GDIPlusX&referringTitle=Home

Wenn Du also eine randlose Form erstellst müsste das eine saubere Bitmap geben.

---

Gruss / Best regards
-Tom
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible,
you are, by definition, not smart enough to debug it. 010101100100011001010000011110000101001001101111011000110110101101110011

Answer 2

Hallo Tom

Besten Dank für den Tipp. Ich galube, da kann man was machen. Ich werde am Wochenende einige Tests machen.
Gruss
Adi

Answer 3

Hallo Tom

Ich habe bereits einige Tests erfolgreich mit deinem Code durchgeführt:

 Local oInkCollector as MSINKAUT.inkcollector.1
 Local oForm1 as Form
 oForm1 = NewObject("form")

 oInkCollector = NewObject("msinkaut.inkcollector.1")
 oInkCollector.hWnd = oForm1.HWnd

 oInkCollector.Enabled = .t.

 oForm1.Show
 Read Events

Jetzt möchte ich aber das ganze in mein Projekt stellen. Ich habe ein FormSet mit einer Form mit dem bestehenden Code. Darauf habe ich ein button gesetzt, der mir die Unterschriftenform öffnen soll (frmSigna). Irgendwie schaff ich es nicht, auf dieser Form schreiben zu können.

 Local oInkCollector as MSINKAUT.inkcollector.1
 oInkCollector = NewObject("msinkaut.inkcollector.1")
 oInkCollector.hWnd = ThisFormSet.frmSigna.HWnd

 oInkCollector.Enabled = .t.

 ThisFormSet.frmSigna.Show
 ThisFormSet.frmSigna.AlwaysOnTop = .T.

Die Form geht zwar auf, aber schreiben kann ich nicht.

Danke für die Hilfe.

Gruss Adi

Answer 4

Hallo Tom, Hallo NG

Manchmal muss man einfach mal darüber schlafen. Jetzt läuft es so wie es muss. Ich habe übersehen, dass der oInkCollector local statt public deklariert war. Erstaunlich was man mit dem Fuchs alles machen kann. Schade läuft seine Zeit aus.

Nochmals herzlichen Dank für die Hilfe.
Gruss Adi

Answer 5

Hi Adi,

freut mich zu hören, dass Du es zum Laufen gebracht hast :-)

---

Gruss / Best regards
-Tom
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible,
you are, by definition, not smart enough to debug it. 010101100100011001010000011110000101001001101111011000110110101101110011