Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
18.11.2007, 18:50
|
|
Участник форума
Регистрация: 27.03.2007
Сообщений: 161
Провел на форуме:
1273248
Репутация:
785
|
|
Подскажите как сделать чтобы после нажатия на кнопку на Form1, текс с первой формы передовался на Form2. Вроде указываю всё правильно, ошибок не выходит, но Form2 не открывается.  |
|
|
18.11.2007, 20:24
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от trumps
Подскажите как сделать чтобы после нажатия на кнопку на Form1, текс с первой формы передовался на Form2. Вроде указываю всё правильно, ошибок не выходит, но Form2 не открывается.
Не совсем понял, при нажатии на кнопку с формы 1 тебе нужно чтобы текст из Memo
формы 1 передавался в Memo формы 2???
Если так как я думаю, то кидаешь вторую форму с Memo и код кнопке на первой форме:
Код:
form2.show;
form2.memo1.Text:= Memo1.Text;
Последний раз редактировалось Nightmarе; 18.11.2007 в 20:28..
|
|
|
|
18.11.2007, 21:35
|
|
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671
Репутация:
1338
|
|
Сообщение от trumps
Подскажите как сделать чтобы после нажатия на кнопку на Form1, текс с первой формы передовался на Form2. Вроде указываю всё правильно, ошибок не выходит, но Form2 не открывается. Вопрос не полон у тебя... Не очень понятно, что ты хочешь получить. Как передать текст тебе уже сказали, форму открывай как
|
|
|
|
18.11.2007, 21:55
|
|
Участник форума
Регистрация: 27.03.2007
Сообщений: 161
Провел на форуме:
1273248
Репутация:
785
|
|
Form2.Show; - помог. Спасибо.  |
|
|
|
19.11.2007, 18:23
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)
З.Ы. Сорри за оффтоп
Последний раз редактировалось z01b; 22.11.2007 в 02:30..
|
|
|
|
20.11.2007, 19:47
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Люди вот есть исходник проги, которая логинатся на сайтах сделанных на движке vBulletin
www.forum-mp3.org/browser2.zip
кто может сделать так чтобы она находила текст в WebBrowser1- 'Личные сообщения:' и отображала в edit следующие 20 символов которые отображаются после слова 'Личные сообщения:' ???
Плиз очень надо но немогу я это осилеть и всё
|
|
|
|
20.11.2007, 20:14
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
Сообщение от xaker-boss
кто может сделать так чтобы она находила текст в отображала в edit следующие 20 символов
я исходник не смотрел , но ничего сложного не вижу совсем...
st:= webBrawser1. (тут не то Content , не то Text... (возвращет содержимое браузера как текст));
р := pos('Личные сообщения',st);
Edit1.text :=copy(st, p, 20) ;
|
|
|
|
20.11.2007, 20:43
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Jes посмотри исходник, не спрашивал бы если бы все было так просто, там через ОЛЕ скорее всего текст документа взять можно, но как реализовать хз
Народ помогите кто может. #754-пост
|
|
|
|
20.11.2007, 21:44
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
Код:
unit Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls;
type
TForm14 = class(TForm)
Button1: TButton;
ht1: TIdHTTP;
TEdit : Edit1;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
{$R *.dfm}
procedure TForm14.Button1Click(Sender: TObject);
var st:string;
p:integer;
begin
st:= ht1.Get('http://Страница/');
р := pos('Личные сообщения',st); // можно pos('Личные сообщения',st) + 16; чтоб убрать надпись "Личные сообщения"
Edit1.text :=copy(st, p, 20) ;
end;
end.
Последний раз редактировалось Jes; 20.11.2007 в 21:47..
|
|
|
|
21.11.2007, 01:45
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
кстати исходник ужасный...
логинится удобнее...
Код:
mpfds := TIdMultiPartFormDataStream.Create(Self);
mpfds.AddFormField('vb_login_username', 'Вася');
mpfds.AddFormField('vb_login_password', 'Пупкин');
IdHTTP.AllowCookies:= True;
IdHTTP.HandleRedirects:= True;
idHTTP.Request.UserAgent:= 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
idHTTP.Request.ContentType:='application/x-www-form-urlencoded';
idHttp.Post('http:// .... /login.php?do=login', mpfds);
mpfds.Free;
но конкретно для твоего сайта :
Код HTML:
<form action="login.php?do=login" method="post" onsubmit="md5hash(vb_login_password, vb_login_md5password, vb_login_md5password_utf, 0)">
так-что еще md5 нада обработать... |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
