httpcli1 как загрузить jpeg ?

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Student :), 20 Mar 2008.

  1. Student :)

    Student :) Elder - Старейшина

    Joined:
    9 Feb 2007
    Messages:
    278
    Likes Received:
    18
    Reputations:
    -15
    Code:
    var
    ms:   TMemoryStream;
    jpeg: TJpegImage;
    
    try
    httpcli1.URL:= ('http://milo.ru/captcha.php?id='+captcha_id);
    httpcli1.ProxyPort:= porta;
    httpcli1.ProxyUsername:=logina;
    httpcli1.ProxyPassword:=passa;
    httpcli1.Get;
    httpcli1.RcvdStream:=ms;
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
    finally
    jpeg.Free; ms.Free; httpcli1.Free;
    end;
    
    не выводиться картинка в Image :(
    Помогите пожалуйста.

    на сервере создаёться файл в формате jpg
     
    1 person likes this.
  2. ~Real F@ck!~

    ~Real F@ck!~ Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    283
    Likes Received:
    170
    Reputations:
    -8
    не легче перекодировать формат в том же Paint'e ?
     
  3. Student :)

    Student :) Elder - Старейшина

    Joined:
    9 Feb 2007
    Messages:
    278
    Likes Received:
    18
    Reputations:
    -15
    httpcli это ICS
     
  4. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    Code:
    var
    jpeg: TGraphic;
    
    {CUttED}
    
      jpeg := TJpegImage.Create;
        try
          jpeg.LoadFromStream(ms);
          Image1.Picture.Graphic := jpeg;
        finally
          jpeg.Free;
        end;
     
  5. Student :)

    Student :) Elder - Старейшина

    Joined:
    9 Feb 2007
    Messages:
    278
    Likes Received:
    18
    Reputations:
    -15
    спасибо! щас попробуем :)
     
  6. Student :)

    Student :) Elder - Старейшина

    Joined:
    9 Feb 2007
    Messages:
    278
    Likes Received:
    18
    Reputations:
    -15
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    ms:   TMemoryStream;
    jpeg: TGraphic;
    begin
    ms := TMemoryStream.Create;
    jpeg := TJpegImage.Create;
    try
    httpcli1.URL:= '/image.php?u=32867&dateline=1202417398';
    httpcli1.Get;
    httpcli1.RcvdStream:=ms;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
    finally
    end;
    end;
    
    делаю так выскакивает ошибка :(
     
    1 person likes this.
  7. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    а зочем ты туда гиф суёшь?