[hugolom]

Решил написать загрузчик картинок для сайта hostingkartinok.com

Собственно код

Код:

1 2 3

var   Form1: TForm1;      bas:TStringList;

Код:

1 2 3 4 5 6 7 8 9

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);

Надо чтоб после загрузки избражения появлялась его ссылка в едите(мемо ),
Но как это реализовать незнаю..
Подскажите как , если что подправьте где нитак

ЗЫ. с сетью начал работать недавно так что не пинайте

[lmikle]

В ответ на твой запрос ты получишь страничку, где будет указан адрес загруженных картинок. Тебе надо будет ее распарсить (например, с помощью MSHTML) и получить из соотв. тега этот адрес.

[hugolom]

Вроде так тег?

Код:

1	<a href='http://_____'><

Но я не пойму как выбрать тект между ними в едит(мемо)?

можете подсказать как выдрать?

[friz]

сперва две функции:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

А потом:

Код:

1	memo1.lines.text:=GetBefore('"></LABEL></DIV></DIV>',GetAfter('URL</SPAN><INPUT type="text" size="92" onclick="this.select();" value="', ПЕРЕМЕННАЯ С ТЕКСТОМ СТРАНИЦЫ)

[hugolom]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure host1; 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; begin memo1.lines.text:=GetBefore('"></LABEL></DIV></DIV>',GetAfter('URL</SPAN><INPUT type="text" size="92" onclick="this.select();" value="', ПЕРЕМЕННАЯ С ТЕКСТОМ СТРАНИЦЫ)  //это строка ошибка говорит   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); host1;   end;   end.

В чем я ошибся? и как решить?

[friz]

OMG WTF

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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); host1;   end;   end.

[hugolom]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

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.

memo1.lines.text:=GetBefore('"></LABEL></DIV></DIV>',GetAfter('URL</SPAN><INPUT type="text" size="92" onclick="this.select();" value="', gt); // ошибка в чем?

[Black Raider]

memo1.lines.text:=GetBefore('"></LABEL></DIV></DIV>',GetAfter('URL</SPAN><INPUT type="text" size="92" onclick="this.select();" value="', gt);

А где еще одна закрывающая скобка?

[pesi]

hugolom, а разве ваш код для загрузки картинки рабочий?

[hugolom]

Вот смотрю что нет..

Может поможете сделать его рабочим?

[pesi]

1. браузер + сниффер
2. идем на hostingkartinok.com и смотрим какие запросы идут
3. реализуем с помощью idhttp + TIdMultiPartFormDataStream

[hugolom]

мне нужно без браузера

[pesi]

Платите и сделают вам без лишних для вас телодвижений...

[hugolom]

Если я бы хотел это, то давно вы создал тему в услугах платных.
но мне охото самому научиться, делать это гет\пост запросами!
я думал это будет просто...

[friz]

товаришь pesi хочет тебе сказать что браузер+снифер нужны для того что бы узнать что и как надо отправлять серверу, а не предлагает тебе поставить в прогу браузер