Ok, to test it, i require the function fw_wcslen()! Can somebody send me or show the place in source?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour aGetfiles bug
Page: 1 2 (28 posts)
The problem is not in bytes, but in query length.
Example: If you select 60 files that are in the c: \ temp folder, it would look like this:
"c: \ temp \ archi01.txt" "c: \ temp \ archi02.txt" etc etc.
Each file would take 21 len characters ("'c: \ temp \ archi01.txt'") = 21
If the folder is of greater length Ex: c: \ My documents secrets, it would look like this:
"c: \ My documents secrets \ archi01.txt"
len ('"c: \ My documents secrets \ archi01.txt"') = 37
So if you put a higher value in:
pFile = fw_parWideLen (8, 65534); // 65534 would be the limit of 16 bits, I did not test greater than this value.
The return of the characters composition arranged in windows api will be treated with more space.
I did not go deep to study certainly what causes the error. I know I solved it this way.
Example: If you select 60 files that are in the c: \ temp folder, it would look like this:
"c: \ temp \ archi01.txt" "c: \ temp \ archi02.txt" etc etc.
Each file would take 21 len characters ("'c: \ temp \ archi01.txt'") = 21
If the folder is of greater length Ex: c: \ My documents secrets, it would look like this:
"c: \ My documents secrets \ archi01.txt"
len ('"c: \ My documents secrets \ archi01.txt"') = 37
So if you put a higher value in:
pFile = fw_parWideLen (8, 65534); // 65534 would be the limit of 16 bits, I did not test greater than this value.
The return of the characters composition arranged in windows api will be treated with more space.
I did not go deep to study certainly what causes the error. I know I solved it this way.
Günther,
size_t fw_wcslen( const wchar_t * s )
{
const wchar_t *p;
p = s;
while (*p)
p++;
return p - s;
}Antonio, now a have increased #define SIZE_IN_BYTES 153840
But that is not all. In HB_FUNC( CGETFILE ) i made this changes:
But that is not all. In HB_FUNC( CGETFILE ) i made this changes:
…...
pDir = fw_parWideLen( 4, 512 );
wLen = ( ( dwFlags & OFN_ALLOWMULTISELECT ) ? SIZE_IN_BYTES : 512 ); //<strong>reactivate</strong>
pFile = fw_parWideLen( 8, wLen ); //<strong>change</strong>
pFilter = fw_parWideLen( 1, 800 );
pText = ( LPSTR ) pFilter;
for ( w = 0; w < 800; w++ )
…...
ofn.nMaxFile = wLen; //<strong>change</strong>
…...Günther,
Is it working fine now ?
Many thanks for your great feedback 
I now can get many files ( 300 i have tested)!
Please email me your modified file, thanks!
Antonio, sent!
Antonio, is this included in new version?
Günther,
No, it is not included yet. I am checking why it has not been included yet.
Please email it to me again, thanks
We found your email and we are implementing it.
many thanks for the reminder
Antonio,
no te olvides de incluir esto ya que a mi tmb me casca.
Gracias.!
Please, what in english?
Page: 1 2 (28 posts)