De clipper a Delphi...

[JorgeBec]

Creo que la pregunta es sencila, tenemos dentro de la empresa aplicaciones en Clipper que tienen caracteristica que cuando cierran las tablas xbase, le ponen una seguridad al header y cuando las abren le quitan la seguridad, el codigo clipper para quitar la seguridad es el que sigue


nHandle:= FOPEN( ("I:\carbel\copera\sia\insumos.dbf"), FO_READWRITE + FO_SHARED )
FWRITE( nHandle, CHR(03))
FCLOSE( nHandle )


y la pregunta es como lo cambio a delphi...agradecere sus respuestas...

[guillotmarc]

Hola.

FOPEN, FWRITE y FCLOSE en Delphi són FileOpen, FileWrite y FileClose respectivamente. La sintaxis es practicamente la misma que en Clipper (lógico ya que en ambos casos se pasan directamente los parámetros a la misma función del API de Windows).

En la ayuda de Delphi encontrarás su sintaxis exacta, y ejemplos de utilización de estas funciones.

Saludos.

[delphi.com.ar]

Yo te recomiendo usar un TFileStream, o ir directamente a las funciones mas similares a esas: FileOpen, FileWrite y FileClose

Saludos!

[JorgeBec]

De hecho ya lo intente hacer, pero como el Filewrite lleva 3 parametros, me marca un error de Variable required...que le debo poner??? les dejo el codigo que hice...


FileHandle := FileOpen('I:\carbel\copera\sia\insumos.dbf', fmShareDenyNone);
FileWrite(FileHandle,Chr(03)); <<< aqui me manda el error
FileClose(FileHandle);


agradecere sus respuestas...

[delphi.com.ar]

El tercer parámetro es el tamaño del Buffer que pasas en el segundo parámetro. Para dudas sencillas te recomiendo usar la ayuda de delphi que es muy completa tiene muchos ejemplos.

Saludos!

[marcoszorrilla]

Por si acaso aquí tienes otra opción:

procedure TForm1.Button1Click(Sender: TObject);
Var
f: File of byte;
z:Byte;
begin
  z:=1;
  AssignFile(F,'d:\Dbase\Datos\Destino.dbf');
  Reset(f);
  try
    Seek(f,1);
    Write(f,z)
  finally
  CloseFile(f);
  end;
end;

Un Saludo.

[JorgeBec]

Gracias por sus respuestas, un comentario con respecto a lo que me comenta el compañero delphi.com.ar, cuando escribo al foro es cuando de veras ya le busque, yo se que a veces son cosas sencillas, pero precisamente algo que le podria criticar a delphi es a veces su pobre ayuda, al menos en Delphi 4 que es lo que manejo por ejemplo la funcion FileWrite en la ayuda NO trae ningun ejemplo...de nuevo gracias, probare sus respuestas...