Przemyslaw just fixed it, in't this guy just great?! Thanks Przemyslaw.
2009-05-14 00:23 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rddads/ads1.c
! added workaround for ACE bug: character fields longer then 23 bytes
are
increased by one byte when read by AdsGetField().
fmancera wrote:
>
> Hello Abe,
>
>> with the following test.prgProc MAIN()
>>
>>
>> ----------
>> REQUEST ADS
>> AdsSetServerType( 1 )
>>
>> dbCreate( "test.DBF", {;
>> { "ITEMID", "C", 8, 0 }, ;
>> { "ITEM", "C", 12, 0 }, ;
>> { "CLASS", "C", 8, 0 }, ;
>> { "SUB", "C", 8, 0 }, ;
>> { "CQTY", "N", 7, 2 }, ;
>> { "R_PAK_BULK", "C", 1, 0 }, ;
>> { "C_PAK_BULK", "C", 1, 0 }, ;
>> { "LDESC", "C", 30, 0 }, ;
>> { "MAN", "C", 15, 0 }, ;
>> { "BRAND", "C", 15, 0 }, ;
>> { "SHELF", "C", 6, 0 }, ;
>> { "DESC", "C", 40, 0 }, ;
>> { "MINS", "N", 8, 2 }, ;
>> { "ONHAND", "N", 15, 2 }, ;
>> { "PRICE", "N", 6, 2 }, ;
>> { "PRICE2", "N", 6, 2 }} )
>>
>>
>> USE test VIA "ADS" SHARED
>> for lop := 1 to 100
>> append blank
>> NEXT
>>
>> BROWSE()
>> ------------
>> and make command
>>
>> hbmk2 test -lrddads -lace32
>>
>> now look at field DESC it's being expended to lenght 41 with a garbage
>> character at the end.
>
> I had that problem. I solved using the latest ADS 9.10 SDK.
>
> Regards,
>
> Fernando Mancera
> www.viaopen.com
> _______________________________________________
> Harbour mailing list
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
>
--
View this message in context:
http://n2.nabble.com/Bug-in-ADS-tp2886000p2887030.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
