title: Send a picture over the internet in Delphi 7
body: <p><strong>The Idea</strong></p>
  
  <p>Me and a friend want to to play a joke on another friend and make a delphi application that takes screen shots of our friends screen and then send it to my computer. </p>
  
  <p><strong>The Question</strong></p>
  
  <p>The problem is that me and my friend have no idea how to send the image to my computer. Any idea how?</p>
  
  <p><strong>I have tried what GolezTrol said</strong></p>
  
  <p>This is the code for that (starts at line 27)</p>
  
  <pre><code> procedure TForm1.Button1Click(Sender: TObject);
   var
     Params:  TIMultipartFormDataStream;
     Response1: TStringStream;
   begin
    try
      Params := TIMultipartFormDataStream.create;
      Response1 := TStringStream.Create;
      try
        Params.AddFile('file', 'C:\temp\YourTempImageName.jpg', 'image/jpg');
        IdHTTP1.Post('http://localhost/uploadimage.php', Params, Response1);
      finally
        Params.Free;
        Response1.Free;
      end;
  end;
  </code></pre>
  
  <p>(I'm busy trying to make it work.) </p>
  
  <p><strong>Extra Information</strong>
  After reconsidering I don't really see the funny side anymore. By the way I was not going to steel my friends identity. After telling him what we wanted to do he challenged us to try (He bet we couldn't do it). </p>