Форум программистов [Powered by Invision Power Board]

Код


procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.inkingz.net/?p=login&n=0&username='+edit1.Text+'&password='+edit2.Text);
button3.Enabled:=false;
edit1.Enabled:=false;
edit2.Enabled:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('test.htm'), True);
while HTMLDocument.readyState < 'complete' do
   Application.ProcessMessages;
memo1.Lines.LoadFromFile('test.htm');
hd:= 'href="./base/system/view.php?';
button6.click;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
button3.Enabled:=true;
button4.Enabled:=false;
button1.Enabled:=false;
edit1.Enabled:=true;
edit2.Enabled:=true;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
button4.Enabled:=true;
button1.Enabled:=true;
end;

procedure TForm1.perenos;
begin
for Ip:= Ip to LMem1  do
begin
   s1:= Memo1.Lines[Ip];
   trim(s1);
   ps:= pos('"',s1);
   if ps <> 0 then
          begin
          exit
          end;
   memo2.Lines.Add(s1);
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
hd:= 'href="http://www.inkingz.net/base/system/view.php?';
button6.click;
end;
             //href="http://www.inkingz.net/base/system/view.php?ad=1277982680"
            //ссылка для просмотра


procedure TForm1.Button6Click(Sender: TObject);
begin
LMem1:=1100;
for Ip:= 0 to LMem1  do
   begin
   s1:= Memo1.Lines[Ip];
   trim(s1);
   ps:= pos(hd,s1);
   if ps <> 0 then
         begin
         Delete(s1,1,ps);
         ps:= pos('"',s1);
         if ps <> 0 then
             begin
              Delete(s1,1,ps);
              ps:= pos('"',s1);
              if ps <> 0 then
                 begin
                 Delete(s1,ps,ps+7);
                 end;
             end;
         memo2.Lines.Add(s1);
         perenos;
end;
end;
end;
end.

Код


function FormURL(const sURL: string): string;
const
 //В этой константе хранится часть URL которую надо прибавить
 sBegOfURL = 'http://www.inkingz.net';
begin
 result:=sBegOfURL + Copy(sURL, 2, Length(sUrl)-1);
end;

Код


var
 sURL: string;

begin
 Write('Введите часть URL: ');
 ReadLn(sURL);
 sURL:=FormURL(sURL);
 Write('Результат: ', sURL);
 ReadLn;
end.

Код


function FormURL(const sURL: string): string;
const
 sBegOfURL = 'http://www.inkingz.net';
begin
 result:=sBegOfURL + Memo1.lines[index];
end;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 sURL: string;
begin
 sURL:=memo1.Lines[1];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);
 end;

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 sURL: string;
begin
 sURL:=memo1.Lines[1];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[2];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[3];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[4];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[5];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[6];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);

 sURL:=memo1.Lines[7];
 sURL:=FormURL(sURL);
 memo2.Lines.Add(sURL);
 end;
 //и.т.д.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo2.Clear;
  with Memo1 do
    for i := 0 to Lines.Count - 1 do
      Memo2.Lines.Add(FormURL(Lines[i]));
end;