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

Reply via email to