Трабл с jpeg капчей

[bulldog5293]

Добавил в пред. посте

[Пепел Феникса]

текста их не вижу.
только обьявление.

[bulldog5293]

забыл, добавил

[Пепел Феникса]

procedure BUX.Execute;
var
  img: TMemoryStream;
    png: TPNGObject;
    JPEG: TJPEGImage;
  Stream: TMemoryStream;

красное убрать(именно с execute)

попробуй так, потом дальше посмотрим.

обьясню ошибку, у вас есть переменные как члены класса png, JPEG которые и используются в синхрониз методах.
а вы обьявили еще и локальные которые существуют только в execute, и с ними работаете, конечно ошибка будет.

сча еще синхронизацию подправим

form9.Free;

грубейшая ошибка, обьект уничтожили, а потом еще и используете.

type
  BOT = class(TThread)
    FUrl: String;
    FLogin: String;
    FPassword: String;
  private
    HTTP_BUX: TIdHTTP;
  protected
    public
  end;
procedure BUX.Execute;
var
  img: TMemoryStream;
    png: TPNGObject;
    JPEG: TJPEGImage;
  code:string;
      begin
        HTTP_BUX.get('http://' + FUrl);
        HTTP_BUX.get('http://' + FUrl + 'login.php?r=', S);
        begin
        If Pos('image.php?', S.datastring) > 0 then
          try
          img := TMemoryStream.Create;
          png := TPNGObject.Create;
          HTTP_BUX.get('http://' + FUrl + 'image.php?', img);
          img.Position := 0;
          png.LoadFromStream(img);
          code := '';
          form9.Image1.Picture.Assign(png);//предпологаю что на 9-ой форме есть Image1
          form9.ShowModal;
          code:=form9.edit1.text;
          if code <> '' then
          inf.Add('username=' + FLogin);
          inf.Add('password=' + FPassword);
          inf.Add('code=' + code);
          ain := HTTP_BUX.Post('http://' + FUrl + 'login.php', inf);
          вход := poster(ain);
          finally
          png.Free;
          inf.Free;
          img.Free;
        end
        else
        begin
          inf.Add('username=' + FLogin);
          inf.Add('password=' + FPassword);
          ain := HTTP_BUX.Post('http://' + FUrl + 'login.php', inf);
          вход := poster(ain);
          inf.Free;
        end;
        end;
        S.Position := 0;
        st := TStringStream.Create;
        HTTP_BUX.get('http://' + FUrl + вход, st);
        If Pos('ads.php', st.datastring) > 0 then
        begin
          HTTP_BUX.get('http://' + FUrl + 'ads.php', st);
        end
        else
        begin
          If Pos('sites.php', st.datastring) > 0 then
          begin
            HTTP_BUX.get('http://' + FUrl + 'sites.php', st);
          end;
        end;
       Otvet := HTTP_BUX.get('http://' + FUrl + Z + N);
      Ur := PosSrc(Otvet);
      Otvet1 := HTTP_BUX.get('http://' + FUrl + Ur);
      end;
      end;
      h := SetTimeOutJS(Otvet1);
      g1 := Para(Otvet1);
      HTTP_BUX.get('http://' + Form13.Listview1.Items[0].SubItems.strings[0]);
      Sleep(h);
            Otvet3 := TStringStream.Create;
      HTTP_BUX.get('http://' + FUrl + g1, Otvet3);
      begin
      If Pos('src="', Otvet3.datastring) > 0 then
          try
      cis := TStringList.Create;
      img:=TMemoryStream.Create;
        JPEG:=TJPEGImage.Create;   //создаем jpeg
      HTTP_BUX.get('http://' + FUrl + 'captch.php', Stream);
      img.Position:=0; //устанавливаем ОБЯЗАТЕЛЬНО на ноль
        JPEG.LoadFromStream(img);//загружаем данные из потока
          form9.Image1.Picture.Assign(jpg);//предпологаю что на 9-ой форме есть Image1
          form9.ShowModal;
          code:=form9.edit1.text;
          if code <> '' then
      cis.Add('captcha=' + code);
      HTTP_BUX.Post('http://' + FUrl + y, cis);
      finally
      JPEG.Free;
      img.Free;
          end;
      end;
end;

примерно так.

кстати не плодите индусский код, переменные можно использовать по несколько раз.

[bulldog5293]

не получается, всё равно зависает если Synchronize(go), если просто go то ошибка

[Пепел Феникса]

я пост дописал.

[bulldog5293]

Респект и уважуха Пепел Феникса!!! Работает как часы, поставил бы + но пока не могу, так что +++ из моего сообщения для тебя Вопрос снят!