Conexión Tablas FoxPro .Dbf

[marcoszorrilla]

No ha habido manera de conectarse, así que he implementado una opción de urgencia puesto que solamente se trata de cruzar datos no de escribir en las tablas.

Como el Byte 29 es donde reside si la tabla tiene índices o no he hecho una copia de la tabla cada vez que entro con el motivo de que ésta este lo mas actualizada posible y luego le he cambiado el byte que es 01 por 00, y ya lo tengo funcionando.

Código Delphi [-]
procedure KillConta();
var
mystream : tfilestream;
FileName: String;
pOrigen,pDestino:Pchar;
Value:Longint;
begin
Value:=00;
FileName:='\\Servidor\CNdbf\XXX.dbf';
pOrigen:='\\Servidor\XXX\ConXXX\EmpXX\XXX.dbf';
pDestino:='\\Servidor\CNdbf\XXX.dbf';
Try
CopyFile(pOrigen,pDestino,False);
Except
ShowMessage('Error al copiar el Fichero XXXX.');
end;

mystream := tfilestream.create(filename,
            fmOpenWrite + fmShareExclusive);
  try
    mystream.Seek(28, soFromBeginning);
    mystream.Writebuffer(Value, SizeOf(Value));
  finally
    mystream.Free;
  end;
end;

Un Saludo.