Решил написать загрузчик картинок для сайта hostingkartinok.com
Код который использую
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
bas:TStringList;
implementation
{$R *.dfm}
function GetBefore(substr, str:string):string;
begin
if pos(substr,str)>0 then
result:=copy(str,1,pos(substr,str)-1)
else
result:='';
end;
function GetAfter(substr, str:string):string;
begin
if pos(substr,str)>0 then
result:=copy(str,pos(substr,str)+length(substr),length(str))
else
result:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
gt:string;
begin
bas:= TStringList.Create;
bas.Add('multipart/form-data');
bas.Add('name='+edit1.text);
bas.Add('type='+edit2.text);
bas.Add('value="Загрузить"');
gt:=form1.IdHTTP1.Post('http://hostingkartinok.com/',bas);
begin
memo1.lines.text:=GetBefore('"></LABEL></DIV></DIV>',GetAfter('URL</SPAN><INPUT type="text" size="92" onclick="this.select();" value="', gt);
end;
end.
Я в запросе получаю страницу с ссылкой, но мне нужно чтоб в мемо(едит) появлялась полученная ссылка, есть ли вариант по лучше или помогите подправить мой?
