Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 15.08.2009, 12:27   #1
AquaKlaster
Delphi,Python,PHP
Форумчанин
 
Аватар для AquaKlaster
 
Регистрация: 04.04.2009
Сообщений: 138
Репутация: 21
Радость Вытащить ссылку...

Нужна помощь в создании программы которая будет вытаскивать прямую ссылку с letitbit.net
Вот отправляю пост запрос:
PHP код:
var postresult_1:tstringlist;
begin
 post
:=tstringlist.Create;
 
result_1:=tstringlist.Create;
 
post.Add('uid='+uid5);
 
post.Add('md5crypt'+md5crypt);
 
post.Add('cap='+edit3.Text);
 
post.Add('frameset=%D1%EA%E0%F7%E0%F2%FC+%F4%E0%E9%EB.');
 
post.Add('uid2='+uid);
 
post.Add('uid5='+uid5);
 
post.Add('uid='+uid);
 
post.Add('name='+name);
 
post.Add('pin='+pin);
 
post.Add('realuid='+realuid);
 
post.Add('realname='+realname);
 
post.Add('host='+host);
 
post.Add('ssserver='+ssserver);
 
post.Add('sssize='+sssize);
 
post.Add('optiondir='+optiondir);
 
post.Add('fix=1');
 
result_1.Text:= idhttp1.Post('http://letitbit.net/download3.php'post);
 
memo1.Text:=result_1.Text;//проверка того что получили
end
в memo1 выводится такой текст:
PHP код:
 <frameset rows="70,*" frameborder="no" border="0" framespacing="0">
  <
frame src="http://letitbit.net/tmpl/tmpl_frame_top.php?link=" name="topFrame" scrolling="No" noresize="noresize" id="topFrame" title="topFrame" />
  <
frame src="http://letitbit.net/tmpl/premium_xx.php?uid=28ed8f59310a752fe61615a5e&md5cryptaHR0cDovL3IzNS5sZXRpdGJpdC5uZXQvZG93bmxvYWQ1MC8yOGVkOGY1OTMxMGE3NTJmZTYxNjE1YTVlX3dvMDlwdnFuOGVic2t3ZDAvMTAyODIxMi8xMDBsZXNzb25zUHMucmFyfDEwMjgyMTJ8MjMzNS4yOGVkOGY1OTMxMGE3NTJmZTYxNjE1YTVlfDEwMGxlc3NvbnNQcy5yYXJ8bGV0aXRiaXQubmV0fA==&cap=9128c4&frameset=1&uid2=28ed8f59310a752fe61615a5e&uid5=2ecbe65c25e9f064832d3359b6ca2934&name=Form1&pin=&realuid=&realname=&host=&ssserver=&sssize=&optiondir=&fix=1" name="mainFrame" id="mainFrame" title="mainFrame" />
</
frameset
а вот если через браузер выводится вот такой:
PHP код:
 <frameset rows="70,*" frameborder="no" border="0" framespacing="0">
  <
frame src="http://letitbit.net/tmpl/tmpl_frame_top.php?link=http://r35.letitbit.net/download50/2335.28ed8f59310a752fe61615a5e_j3ytfo8jx15lukhp/1028212/letitbit.net/100lessonsPs.rar" name="topFrame" scrolling="No" noresize="noresize" id="topFrame" title="topFrame" />
  <
frame src="http://wawname.ru/index2.html?a_aid=2&chan=13" name="mainFrame" id="mainFrame" title="mainFrame" />
</
frameset
Как зделать что бы у мя в memo выводился исходный код такойже как и в браузере, подозреваю на JavaSkript, но если так и есть то как его вклчить подключить???
Зарание спасибо!
AquaKlaster вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вытащить текст из ячейки Tirendus Microsoft Office Excel 18 29.01.2012 19:51
Вытащить строчку из файла Pedro Общие вопросы Delphi 41 07.01.2009 17:27
Вытащить данные из MySQL Droid PHP 3 23.12.2008 00:23
Вытащить обновления из сборок Elm0 Свободное общение 12 12.11.2008 12:08
как вытащить форму Барби Помощь студентам 5 01.10.2008 09:02


05:27.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru