[jeremiselxi]

Bueno yo buscando y buscando encontre dos formas de como se puede guardar informacion poniendo las .db en una pc servidor y la aplicacion en otra pc cliente.
la primera esta yendo donde dice FTP luego CPPBuilderWin32 y luego en tutoriales el unico que esta ahi es un manual que hice de la primera forma.

el unico inconveniente de esta es que tendremos que crear un alias para ello, aunque se puede usar sin el alias. leanlo por favor y luego diganme que les parecio. la otra la baje de la pagina ajpdsoft.com
tambien subi el ejemplo en FTP luego CPPBuilderWin32 luego elige ejemplos y luego paradoxnet

en el ejemplo esta el manual en español pero hay cosas que no entendiendo, aunque ahi esta el ejemplo aqui esta la parte del codigo que no entiendo


aqui se usa un tSession, un tdatabase,un ttable y un datasource ademas de un modulo.

Código Delphi [-]

procedure TMDatos.DataModuleCreate(Sender: TObject);
var
  ruta, servidor, rutaprivate, rutanet : string;
begin
  with tinifile.create (changefileext(paramstr(0),'.INI')) do
  try
    ruta := readstring ('Datos', 'Ruta', '');
    rutanet := readstring ('Datos', 'Ruta net', '');
    rutaprivate := readstring ('Datos', 'Ruta PrivateDir', '');
    servidor := readstring ('Datos', 'Servidor', '');
    if ruta = '' then
    begin
      while not (ruta <> '') do
        ruta := InputBox ('Ruta de los datos...',
            'Introduzca la ruta de los ficheros *.db',
            'c:\p\datos ó \\a\PRed\datos');
      writestring ('Datos', 'Ruta', ruta);
    end;
    if rutaprivate = '' then
    begin
      while not (rutaprivate <> '') do
        rutaprivate := InputBox ('Ruta de los *.lck...',
            'Introduzca el PrivateDir (ruta de los ficheros *.lck)',
            'c:\p\temp');
      try
        CreateDir(rutaprivate)
      except
      end;
      writestring ('Datos', 'Ruta PrivateDir', rutaprivate);
    end;
    if rutanet = '' then
    begin
      while not (rutanet <> '') do
        rutanet := InputBox ('Ruta del fichero NET...',
            'Introduzca la ruta del fichero NET',
            '\\a\PRed\datos\net');
     writestring ('Datos', 'Ruta net', rutanet);
    END; 
    if servidor = '' then
    begin
      while not (servidor <> '') do
        servidor := InputBox ('Servidor...',
            '¿Es este equipo el servidor?',
            'si/no');
     writestring ('Datos', 'Servidor', servidor);
    end;
  finally
  end;

  With mdatos.Session1 do
  begin
    NetFileDir := RUTANET;
    PrivateDir := rutaprivate;
  End;
  With db do
  begin
    Params.Clear;
    Params.Add('PATH=' + RUTA);
    Params.Add('DEFAULT DRIVER=PARADOX');
    Params.Add('ENABLE BCD=FALSE');

    //NO HE PROBADO SI ESTO FUNCIONA
    //SI NO FUNCIONA SE DEBERÁ CONFIGURAR MANUALMENTE
    //COMO SE INDICA EN EL PASO 2
    if uppercase (servidor) <> 'NO' then
      Params.Add('LOCAL SHARE=TRUE')
    else
      Params.Add('LOCAL SHARE=FALSE');

    Connected := true;
  End;
  table1.active := true;
end;

end.

Todo ese codigo lo pone el autor pero no entiendo si es en cada pc cliente k tengo k poner todos esos datos, o es en una pc cliente nada mas y luego se comparte la carpeta? o si tambien hay que ponerlo en la pc servidor o algo. chequen el ejmplo por favor. Si pudieran ponerle comentarios a estos codigos por favor:-) ademas creo k no necesitamos tantos codigos como lo dice el autor de ese tutorial.

Ahora bien mi pregunta es para k sirve el archivo PDOXUSRS.net?
Y por ultimo para k sirve donde dice LOCAL CHARE =true /false?





CPPBuilderWin32 luego elige ejemplos y luego paradoxnet.