Mandar imagem para outro micro online

Question

Boa tarde pessoal,me pediram pra fazer um sistema mas n�o sei por onde come�ar pois nunca fiz algo do tipo..O problema � o seguinte..Na entrada da empresa tem uma guarita na qual tem uma webcam que ti...

Duco · Answer

N�o sei se � exatamente isso que voc� precisa, mas para enviar arquivos da uma maquina para outra via internet voc� pode usar os componentes Indy (Aqui uso a vers�o 9.x).

Um Exemplo de c�digo no programa servidor.

var
  Arquivo: TFileStream;
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    Arquivo := TFileStream.Create(�C:\teste.jpg�, fmOpenRead);
    Arquivo.Position := 0;
    ASender.Thread.Connection.WriteInteger(Arquivo.Size);
    ASender.Thread.Connection.WriteStream(Arquivo);
  finally
    Arquivo.Free;
  end;

E no Cliente, uso esse c�digo.

var
  Arquivo: TFileStream;
  Tamanho: Integer;
begin
  IdTCPClient1.Host := ��;
  IdTCPClient1.Host := Edit1.Text;
  if not DirectoryExists(�C:\Recebido�) then
    CreateDir(�C:\Recebido�);
  if not IdTCPClient1.Connected then
    IdTCPClient1.Connect;
  Arquivo := TFileStream.Create(�C:\Recebido\teste.jpg�, fmCreate);
  try
    IdTCPClient1.WriteLn(�Pegar�);
    Tamanho := IdTCPClient1.ReadInteger;
    IdTCPClient1.ReadStream(Arquivo, Tamanho);


  finally
    Arquivo.Free;
  end;

[/code]
A Principio, no servidor eu criei uma CommandHandler com o nome �Pegar� e apliquei o c�digo do servidor nela, j� o c�digo no cliente pode ser colocado em um bot�o normal.
N�o sei se � exatamente isso que voc� precisar, mas espero ter ajudado.

Warfighter · Answer

[quote:6144fa0212=�Duco�]N�o sei se � exatamente isso que voc� precisa, mas para enviar arquivos da uma maquina para outra via internet voc� pode usar os componentes Indy (Aqui uso a vers�o 9.x).Um Exemplo de c�digo no programa servidor.[code:1:6144fa0212]var  Arquivo: TFileStream;  Stream: TMemoryStream;begin  Stream := TMemoryStream.Create;  try    Arquivo := TFileStream.Create(�C:teste.jpg�, fmOpenRead);    Arquivo.Position := 0;    ASender.Thread.Connection.WriteInteger(Arquivo.Size);    ASender.Thread.Connection.WriteStream(Arquivo);  finally    Arquivo.Free;  end;[/code:1:6144fa0212]E no Cliente, uso esse c�digo.[code:1:6144fa0212]var  Arquivo: TFileStream;  Tamanho: Integer;begin  IdTCPClient1.Host := ��;  IdTCPClient1.Host := Edit1.Text;  if not DirectoryExists(�C:Recebido�) then    CreateDir(�C:Recebido�);  if not IdTCPClient1.Connected then    IdTCPClient1.Connect;  Arquivo := TFileStream.Create(�C:Recebidoteste.jpg�, fmCreate);  try    IdTCPClient1.WriteLn(�Pegar�);    Tamanho := IdTCPClient1.ReadInteger;    IdTCPClient1.ReadStream(Arquivo, Tamanho);  finally    Arquivo.Free;  end;[/code:1:6144fa0212][/code]A Principio, no servidor eu criei uma CommandHandler com o nome �Pegar� e apliquei o c�digo do servidor nela, j� o c�digo no cliente pode ser colocado em um bot�o normal.N�o sei se � exatamente isso que voc� precisar, mas espero ter ajudado.[/quote:6144fa0212]No caso qual dos dois est�o enviando a imagem ?do server para o client ? ou do client para o server...