Strem Urgente preciso de ajuda

22/05/2003

1

OLA PESSOAL DO FORUM,

ETOU DESENVOLVENDO UM CHATZINHO USANDO OS COMPONENTES DA PALETA INDY DO DELPHI 7, NESTE CHAT GOSTARIA DE PODER PASSAR ARQUIVOS DO CLIENTE PARA O SERVIDOR, E DEPOIS O SERVIDOR REPASSAR PARA TODOS OS CLIENTES QUE O PRIMEIRO CLIENTE PEDIU, O MEU PROBLEMA É QUE NAO SEI MEXER COM STREAM ESTA É MINHA UNICA DUVIDA, MINHA IDEA É CARREGAR O ARQUIVO EM UMA STREAM E DEPOIS PASSAR ESTE ARQUIVO PARA O SERVER, COMO CARREGO ESTE ARQUIVO NA STREAM? COMO DEPOIS VOU SALVAR ESTE ARQUIVO?


AGRADEÇO DESDE JA PESSOAL, VALEU


Responder

Posts

22/05/2003

Will

Este exemplo eu tirei do help do Delphi e fiz algumas modificações, espero que ajude. Ele copia de um arquivo para outro usando streams.

procedure CopiarArquivo(ArquivoAnterior, NovoArquivo: String);
var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
// Carrega o arquivo para o Stream
OldFile := TFileStream.Create(ArquivoAnterior, fmOpenRead or fmShareDenyWrite);
try
// Cria o Stream para um novo arquivo
NewFile := TFileStream.Create(NovoArquivo, fmCreate or fmShareDenyRead);

try
// Copia o arquivo de um Stream para o outro
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
// Libera a memoria
FreeAndNil(NewFile);
end;
finally
// Libera a memoria
FreeAndNil(OldFile);
end;
end;

end;


Responder

22/05/2003

Smaug_84

so que como eu vou salvar este arquivo que esta em uma stream no disco


Responder

22/05/2003

Smaug_84

alguem sabe?


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira