Strem Urgente preciso de ajuda
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
Curtidas 0
Respostas
Will
22/05/2003
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;
GOSTEI 0
Smaug_84
22/05/2003
so que como eu vou salvar este arquivo que esta em uma stream no disco
GOSTEI 0
Smaug_84
22/05/2003
alguem sabe?
GOSTEI 0