Strem Urgente preciso de ajuda
22/05/2003
0
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
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
Smaug_84
Curtir tópico
+ 0
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;
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
Clique aqui para fazer login e interagir na Comunidade :)