Загрузка капчи в image

[Joe_Tribbiani]

я код подправил чуток терь всё работает)

[mustang007]

нет всё равно тоже самое

[Joe_Tribbiani]

Просто у тебя в memo нет тогда текста... у меня же всё работает
вот попробуй в ставить в мемо строку

<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="svg-images/71980513309457388603640786609295326545.png?"

прога те выдаст :

http://www.megafonkavkaz.ru/svg-images/71980513309457388603640786609295326545.png?

[mustang007]

Может я чёто не то делаю но не работает! у вас же 9 верся delphi может изза этого.
вот весь мои код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


 procedure TForm1.Button2Click(Sender: TObject);
var
str,link:string;
k:integer;
begin
link:='';

str:='<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="';
k:=pos(str,memo1.lines.text) + length(str);

while memo1.lines.text[k]<>'"' do begin
link:=link+memo1.lines.text[k];
inc(k);
end;

link:='http://www.megafonkavkaz.ru/'+link;

end;
 end.

[Joe_Tribbiani]

)) хм... ну и какой же у вас текст в мемо? там должен быть результат get
запроса

IdHTTP1.get('http://www.megafonkavkaz.ru/sms');

и зачем вообще мемо? используйте строки

[mustang007]

в смысле строки?
код в мемо как вы мне сказали прописать туда

<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="svg-images/71980513309457388603640786609295326545.png?"

[Joe_Tribbiani]

эт я сказал для проверки....
вы наверное не поняли зачем вообще эта функция)
я же говорил
План действий:

1) Get запрос (

str:=IdHTTP1.get('http://www.megafonkavkaz.ru/sms');

)

2) Ищем ссылку на картинку моей функцией ( ставим в место memo1.lines.text переменную str)

3) отображаем картинку (можно и в webbrowser так легче будет, просто открыть полученную ссылку)

4) Отправка Post запроса

Вот первые 3 пункта кода, пост запрос думаю сами отправите:

var
str,str2,link:string;
k:integer;
begin
link:='';
str2:=idhttp1.Get('http://www.megafonkavkaz.ru/sms');

str:='<img xmlns:fe="http://apache.org/cocoon/fragmentextractor/2.0" border="0" src="';
k:=pos(str,str2) + length(str);

while str2[k]<>'"' do begin
link:=link+str2[k];
k:=k+1;
end;

link:='http://www.megafonkavkaz.ru/'+link;

webbrowser1.Navigate(link);

end;

[mustang007]

ОО спсибо работает!!!пост я сам могу отправить вот код:

var
list: TStringList;
begin
button7.Enabled:=true;
list:=TStringList.Create;
list.Add('SmsNick=' + edit3.text);
list.Add('SmsMsg='+ Memo3.text);
idhttp1.Post('http://gw.kubangsm.ru/cgi-bin/cgi.exe?function=ch_put_sms_win',data);
Timer1.Enabled:=true;
Timer1.Interval:=(StrToInt(Edit2.Text));
end;

Спасибо вам ограомное!

[Joe_Tribbiani]

) Не забывай поднимать репутацию , если помог (нажми на весы под аватаркой)

[mustang007]

поднял!
тока чёто не пашет отправляю пост запрос

procedure TForm1.Button6Click(Sender: TObject);
var
list: TStringList;
begin
list:=TStringList.Create;
button7.Enabled:=true;
list.Add('phone_number=' + edit1.text);
list.Add('msg=' + memo1.text);
list.Add('passwd='+ edit8.text);
list.Add('sender='+ Edit7.text);
list.Add('to_translit='+ CheckBox1.Hint);
idhttp1.Post('http://www.megafonkavkaz.ru/sms',data);
Timer1.Enabled:=true;
end;
end.

но чё то не пашет!