Ricardo2010
12-05-2010, 16:47:39
Buenas, trabajo con D2009 y tengo el siguiente problema, la aplicación copiaba documentos desde un equipo (Cliente) a otro (servidor). sin problemas Esto lo efectua con las siguientes instrucciones
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(
OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(
NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;
Esta funciona correctamente, el problema que tengo es que se decidio traspasar el directorio a otro servidor , este se sabe completa la ruta (path) pero el sistema no llega ya que debe autentificarse para ingresar, el usuario y contraseña la tengo.
Tengo el path, usuario y contraseña para identificacion, la pregunta es como hago para que internamente a traves de D2009 se conecte al servidor.
Si yo por fuera llamo al path me solicita el usuario/contraseña para ingresar se las doy y el sistema nuevamente vuelve a funcionar, este acto como lo hago internamente.
gracias
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(
OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(
NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;
Esta funciona correctamente, el problema que tengo es que se decidio traspasar el directorio a otro servidor , este se sabe completa la ruta (path) pero el sistema no llega ya que debe autentificarse para ingresar, el usuario y contraseña la tengo.
Tengo el path, usuario y contraseña para identificacion, la pregunta es como hago para que internamente a traves de D2009 se conecte al servidor.
Si yo por fuera llamo al path me solicita el usuario/contraseña para ingresar se las doy y el sistema nuevamente vuelve a funcionar, este acto como lo hago internamente.
gracias