FoxPro CREATEBINARY() how under harbour ?

[AUGE_OHR]

hi,

i got a Foxpro PDF how to use Microsoft INK with Table PC

German
https://silo.tips/download/erstellen-vo ... mit-visual

English
https://github.com/FiveTechSoft/screens ... FoxPro.pdf

i "seems" to be able to "save" in GIF (include ISF as metadata that is embedded within the file)
now i want to "load" GIF but i don´t know FoxPro CREATEBINARY()

Code: Select all

PROCEDURE cmdLoad.Click
lsInk = CREATEBINARY( FILETOSTR( GETFILE("isf")))

is there a Equivalent in harbour

[AUGE_OHR]

hi,

have found other Way.

instead of "save" using IPF_GIF, which is a valid "GIF89a", i use IPF_Base64GIF

now i can simple "load" encode File into INK and "recognize" it

[andyglezl]

Hola Jimmy
Cuando oprimes "Clear", deja de funcionar...
*---------------------------------------------------------
Hi jimmy
When you press "Clear", it stops working...

imagen_2022-04-11_102857307.png (229.06 KiB) Viewed 1100 times

P.D.
Te intercambias entre ventanas y funciona de nuevo...
*-------------------------------------------------------------------
P.S.
You switch between windows and it works again...


Al cargar
*-----------------
To Load...

imagen_2022-04-11_105010819.png (111.99 KiB) Viewed 1097 times

[andyglezl]

Algo está pasando.... quizá porque tengo Win11 ?
*-------------------------------------------------------------------
Something is happening... maybe because I have Win11 ?

imagen_2022-04-11_111430491.png (200.96 KiB) Viewed 1093 times

[AUGE_OHR]

hi Andy,

ths for Comment.
i have test it under Windows 11 Version 10.0.22000.593 and DEV 22593.1 without Problem.

i guess you use same "Testfile.GIF" which you have "save" before

! Note : using IPF_Base64GIF does NOT produce "real GIF89a" like using IPF_GIF
so you can´t use a "normal" GIF as i does not include "Metadata" of Strokes

---

you can "load" File only once and not allowed to "add Stroke"

it will produce Error when try "load" 2nd Time even when have "clear" before ...

Code: Select all

Error WINOLE/1007 (0x80070057) LOAD Parameter : [ 1] = C base64 ...

but your Error in 1st Picture point to "DOS Error" ... hm
where can i get more Information about "WinOEK/1007 (-2147352567)

i have to work on it