Filelistbox

[Massonetto]

Olá pessoal, estou tentando passar os itens de um FileListBox para outro com o seguinte codigo:

procedure TForm1.Button1Click(Sender: TObject);
begin
arq := TMemoryStream.Create;
pasta.Items.SaveToStream(arq);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
pasta2.Items.LoadFromStream(arq);
pasta2.Refresh;
end;

Pasta e pasta2 são os FileListBox.

O que acontece é que o pasta2, o que está recebendo o texto, quando eu tento ler da Stream ele fica em branco. Se alguém souber algo que podesse me ajudar ficaria muito grato.

Abraços, t+

[Churc]

opa

veja se assim daria certo

procedure TForm1.Button1Click(Sender: TObject);

begin

pasta2.Items.AddStrings(pasta.Items);

end;

se você quiser que apenas carregue os items da pasta em uma variavel pra ser carregada depois, ao invés de arq você especificar como TMemoryStream, coloque para TStringList

tipo

arq: TStringList;

arq := TStringList.Create;

arq.addstrings(pasta.items);

ai pra carregar usaria

pasta2.items.addstrings(arq);

espero q isso ajude...

abraços

[Massonetto]

vlw cara assim dá certo, mas eu queria via stream pois eu vou envia-la via socket. entende??? Se você souber fazer via Stream seria muito grato.

Muito Obrigado, T+

[Churc]

ah ta entendi uhaahu

pensei q não tivesse um propósito...

baseado no seu código, tenta assim

procedure TForm1.Button1Click(Sender: TObject);

begin

arq := TMemoryStream.Create;

pasta.Items.SaveToStream(arq);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

arq.position := 0;

pasta2.Items.LoadFromStream(arq);

end;

position := 0 informa a variavel q a posicao de saida de dados é inicio do buffer

abraços

[Massonetto]

Ow vlw deu +/- certo... o que acontece q ele tah lendo apenas o que tah na position 0 , se eu ponho 1 ele le o que tah lá... não tem um jeito dele ler td de uma só vez?? porque ele tah lendo em pedaços.. Muito obrigado

Abraços , espero respostas

[Churc]

hmm estranho, era pra ele ler todo o conteúdo...

testei aqui assim

var

Form1: TForm1;

arq: TMemoryStream;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

arq := TMemoryStream.Create;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

arq.Clear;

FileListBox1.Items.SaveToStream(arq);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

arq.Position := 0;

FileListBox2.Items.LoadFromStream(arq);

end;

testa mais ou menos assim, se funcionar ai da pra você saber q o erro está em seu código...

pra você diferenciar um filelistbox do outro coloca filtro tipo *.exe em um só pra sair um conteúdo diferente...

abraços

[Massonetto]

Grande Churc, vlw cara deu certo ...

Abraços e pode fechar