F�rum Qual o tamanho m�ximo para String de um diret�rio ao abrir arquivo com o OpenDialog? #554356

23/05/2016

Estou tentando abrir um arquivo pelo OpenDialog, por�m como o caminho � muito grande quando vai dar FREE(veja exemplo abaixo) a string do diret�rio � modificada...

OpenDir := TOpenDialog.Create(nil);
with OpenDir do
begin
Filter := '*.*'; //Todos Arquivos|
Title := 'Abrir arquivo';
Result := Execute;
if Result then
FName := FileName; //Atribuindo "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"

Free;
//Nesse momento que � dado FREE no OpenDir o Caminho do FileName altera o valor

// de: "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"
// Para: 'C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.re'#0 (Isso que j� encurtei o tamanho dir. se n�o fica cheio de: #0#0#0#0#0#0#0)

// O Length de FileName � de 51
// Fiz outros teste com a string de Filename menor e funcionou...
// Minha pergunta qual tamanho ideal para abrir um diret�rio muito longo ou que se pode fazer par an�o altera o diret�rio do arquivo?

end;

Anderson Gaitolini

Curtir t�pico

+ 0

Responder

Posts

25/05/2016

Natanael Ferreira

Fiz um teste aqui e funcionou normalmente.

Montei o caminho descrito na minha m�quina e testei o c�digo abaixo e funcionou:

var
  Opendir: TOpenDialog;
  FName: String;
begin
  Opendir := TOpenDialog.Create(nil);
  with Opendir do
  begin
    Filter := '*.*'; // Todos Arquivos|
    Title := 'Abrir arquivo';

    if Execute then
      FName := FileName; // Atribuindo "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"
    Free;

    ShowMessage(FName);
    // Aparece a mensagem com "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"
  end;
end;

Responder

Gostei + 0

25/05/2016

Anderson Gaitolini

Estranho deve ser outra coisa influenciando, j� t� desconfiado que o o problema � a atribui��o dessa STRING para a vari�vel "FName" que � uma Par�metro VAR de uma fun��o

function fCaminho(VAR FName : String): Boolean

ser� tem algo a ver? � bem na hora que d� o FREE

Responder

Gostei + 0

25/05/2016

Natanael Ferreira

Para ter certeza fa�a um teste:

- Crie uma nova aplica��o.
- Coloque um button no form e no evento OnClick do button coloque o c�digo abaixo:

var
  Opendir: TOpenDialog;
  FName: String;
begin
  Opendir := TOpenDialog.Create(nil);
  with Opendir do
  begin
    Filter := '*.*'; // Todos Arquivos|
    Title := 'Abrir arquivo';

    if Execute then
      FName := FileName; // Atribuindo "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"
    Free;

    ShowMessage(FName);
    // Aparece a mensagem com "C:\BASES\MAX-WIN\cm\Ret\CBR64345131705201610446.ret"
  end;
end;

Responder

Gostei + 0