AntiDuplicate

[Antonio Linares]

Jeff,

Ok, thanks. They are using mixed upper and lower case symbol names.

Then please try this code:

Code: Select all  Expand view

   MsgInfo( Fddig1( 0 ) )
   ...
 
DLL FUNCTION Fddig1( n AS LONG ) AS LONG PASCAL LIB "Aas973.dll"
 

[Jeff Barnes]

With nothing in the usb drive we get: 2
With a USB stick in but not programmed we get: 1
With a valid USB stick we get: 7
With a copied USB stick we get: 7

[Antonio Linares]

Jeff,

ok, thanks, we are progressing

[Antonio Linares]

Jeff,

Please try now this code:

Code: Select all  Expand view

   local acck := Space( 100 )

   Accdd1( acck )
   MsgInfo( Empty( acck ) )
   ...
 
DLL FUNCTION Accdd1( c AS LPSTR ) AS VOID PASCAL LIB "Aas973.dll"
 

[Jeff Barnes]

The "copy" returns: .f.
The "valid" one returns: .f.
The non programmed one returns: .f.
Nothing in the USB slot returns: .f.

[Antonio Linares]

Jeff,

Being not empty means that the DLL is placing some info inside the variable acck.

So now, please inspect what there is inside it, in each case:

Code: Select all  Expand view

   for n = 1 to Len( acck )
      MsgInfo( Asc( SubStr( acck, n, 1 ) ) )
   next
 

[Jeff Barnes]

Nothing connected:
197 218 200 99 245 25 138 175 107 43 20 89 14 148 136 200 162 93 109 46 8 207 237 5 124 75 16 66 218 33 9 75 135 218 211 174 110 108 38 136 121 191 43 201 181 223 101 238 123 114 124 147 222 92 44 197 138 117 10 31 199 202 69 87 251 186 16 120 32 17 228 79 51 82 81 75 128 240 68 123 104 142 248 177 111 252 100 44 45 237 133 207 193 239 70 184 162 172 84 216


Non-Programmed:
80 77 239 72 117 233 247 60 69 74 115 32 148 246 158 134 10 109 46 62 117 231 232 148 50 104 127 91 246 92 149 183 36 205 99 79 76 132 53 134 224 103 126 73 229 227 100 150 107 212 143 20 7 143 248 211 72 17 72 93 155 223 140 229 181 121 192 219 147 31 17 209 22 217 232 65 18 219 95 91 97 182 18 104 31 77 163 148 55 165 211 45 138 242 113 45 236 241 124 155

Copy:
173 162 171 170 80 55 240 209 229 136 39 208 209 111 219 105 141 199 182 87 33 186 34 44 148 167 147 175 71 148 221 83 246 6 153 158 80 186 155 75 13 91 132 46 45 224 1 59 191 33 72 240 81 169 137 36 116 194 37 125 27 118 1 236 44 71 47 119 213 254 6 50 143 83 175 19 143 203 136 250 250 56 139 205 240 56 149 142 247 27 167 92 108 55 130 42 70 43 229 84


Valid stick:
16 86 40 57 44 154 139 100 3 142 9 235 27 218 4 101 202 3 152 84 179 133 198 16 47 192 131 64 15 246 109 173 77 39 241 177 143 214 148 79 211 32 188 1 214 175 12 184 148 244 153 8 181 197 177 79 20 10 92 181 168 26 197 54 53 159 166 212 166 62 110 132 106 204 201 153 13 35 185 208 255 92 140 225 199 90 4 134 126 251 202 151 220 229 70 243 92 43 252 99

[Jeff Barnes]

It looks like the numbers change every time I run the program.

Valid Run 1:
237 34 150 218 38 250 85 235 6 144 164 164 251 98 138 209 55 135 68 43 52 231 43 230 180 7 83 50 63 15 254 131 141 177 76 128 129 249 177 5 73 65 185 68 130 29 86 102 54 184 192 130 80 17 86 128 91 95 14 5 155 149 21 14 156 242 72 247 0 109 13 245 54 160 105 156 125 132 30 28 185 128 71 47 127 98 109 61 201 85 65 117 83 229 96 2 141 238 140 63

Valid Run 2:
226 72 138 219 155 149 21 14 214 97 178 23 223 240 56 124 159 20 154 228 80 97 79 240 195 100 211 216 19 190 133 169 238 160 226 154 184 124 213 21 205 170 182 3 129 88 50 205 55 227 73 247 214 17 114 204 173 2 173 207 123 79 172 38 78 185 89 150 81 160 154 94 46 23 167 158 84 249 30 212 128 110 10 183 129 193 109 43 163 202 147 158 53 11 131 100 168 184 50 157

Valid Run 3:
48 191 162 43 93 51 178 147 101 219 204 195 82 113 23 115 205 158 45 137 2 167 61 147 125 233 169 113 49 71 66 204 190 156 248 82 184 124 213 21 94 88 45 179 54 128 10 127 72 73 49 171 87 36 215 135 13 90 234 81 239 255 139 109 32 20 122 190 51 233 83 101 157 118 114 255 121 174 95 224 226 86 196 91 123 134 4 127 13 39 51 206 204 95 29 104 168 64 225 191

[Jeff Barnes]

Hi Antonio,

Any success ? or is this just something that will not work with FWH ?

[Antonio Linares]

Jeff,

I have been busy with FWH 64 and the new Class TExplorerBar and had no time to continue.

Lets see if we can make some more progress on this

[Jeff Barnes]

Hi Antonio,

No rush ... I was just following up.
I am currently in Quebec City. When I return home I will be busy packing (I move to my new house on June 25th) so my time too is limited these days