FiveTech Software tech support forums

THe file is too long 148k and i do not know how to attach a file
Thank You Antonio
Lorenzo

I have overvrite last version of a fivewin prg file that was compiled with harbour for fivewin and also linked to an exe that is well running.
So i have a running exe but last modified source prg overvrite by precedent version ( do not know how i made this disaster)

In a prg file (lefunz.prg) i ...

Buongiorno, ho sovrascritto inavvertitamente il codice di un file prg compilato con harbour e mi sono accorto di avere perso l'ultima modifica fatta con due nuove funzioni abbastanza complesse. L'unica traccia che ho è il file compilato in c dove ho la funzione in formato hb_func

E' possibile ...

Thanks Enrico

Lorenzo

Cannot find definition for DBI_PASSWORD
here are all DBI_ the constant i found for dbinfo()


/* constants for dbInfo() */
#define DBI_ISDBF 1 /* Does this RDD support DBFs? */
#define DBI_CANPUTREC 2 /* Can this RDD Put Records? */
#define DBI_GETHEADERSIZE 3 /* Data file's header size */
#define ...

I tried the suggestion but i cannot find DBI_PASSWORD definition.

Anyway my intent is to make the dbf unreadable by normal dbf tools, to protect privacy outside from the specific software that created and use the dbf.

Lorenzo

Ok, but i just want to use the dbf with an old VB6 program that uses a JET connection like this

"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase IV;Data Source="

I suppose that i must change the encrypted flag in dbf file header in some way (do not know how), and then open with a ...

I am asking if it is possible to encrypt an entire .dbf file (without memo) by setting the flag in the dbf header?
And then?
What do i have to do to read and write the fields in the .dbf ?


Thanks
Lorenzo

Prova questo esempio:

#include "Fivewin.ch"FUNCTION MAIN&#40;&#41; LOCAL cUrl := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna" LOCAL cRes := GETURL&#40; cUrl &#41; MEMOWRIT&#40; "Response_Test.htm", cRes, .F. &#41; RETURN NIL#command IF <condition> THEN <*statements*> => if <condition ...

Che versione di Windows stai usando? Dall'errore sembra che la DLL relativa al componente non supporti quella proprietà, cosa che mi sembra assurda. E comunque la prova dell'EXE può essere utile per avere qualche indizio in più.

EMG
uso windows 10

ok inviami l'exe per provare via mail a ...

No, non credo. Vuoi che ti mandi il mio EXE così lo provi da te? Se sì, mandami un indirizzo email che accetti gli EXE.

EMG

Grazie Enrico ma io devo capire il motivo dell'errore per poter programmare la logica successiva, in realtà poi dovrei creare un DOM e poi cercare tra i nodi del documento ...

#Include "FiveWin.ch"#Include "Fileio.ch"#ifdef __XHARBOUR__ // xHarbour #include "tip.ch"#endifFUNCTION http&#40; therequest &#41; LOCAL oHttp, cResp DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna" /* Try oHttp := CreateObject( "Microsoft.XMLHTTP" ) Catch MsgInfo ...

Your sample works fine here.

EMG

Non funziona , l'errore è causato da ohttp:responsebody che sembra non essere accessibile e comunque non ritorna nessuna stringa (credo sia null)
Prima non ho errori !
Lorenzo

Qui funziona regolarmente e ohttp:responsebody contiene la pagina web di risposta ...

#Include "FiveWin.ch"#Include "Fileio.ch"#ifdef __XHARBOUR__ // xHarbour #include "tip.ch"#endifFUNCTION http&#40; therequest &#41; LOCAL oHttp, cResp DEFAULT therequest := "https://www.nonsolocap.it/cap?k=calori&b=&c=bologna" /* Try oHttp := CreateObject( "Microsoft.XMLHTTP" ) Catch MsgInfo ...