 |
|
09.02.2010, 02:44
|
|
Новичок
Регистрация: 03.08.2009
Сообщений: 21
С нами:
8827483
Репутация:
2
|
|
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?  |
|
|
09.02.2010, 07:23
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
Сообщение от Андрей021
Код:
ShellExecute(0,'open','cmd.exe','/c ipconfig/all ipconfig_all.txt','C:\Windows\system32\',SW_HIDE);
Как вместо ipconfig/all вставить переменную?
Код:
'/c '+s+' ipconfig_all.txt'
|
|
|
|
09.02.2010, 13:12
|
|
Новичок
Регистрация: 19.06.2008
Сообщений: 2
С нами:
9417505
Репутация:
0
|
|
idhttpproxyserver
Доброго времени суток.
есть компонент idhttpproxyserver.
Как сделать так, чтобы в memo отображались все запросые, которые проходили через это прокси?
|
|
|
|
09.02.2010, 13:48
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
AlexTheC0d3r
hide это и есть visible:=false;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
09.02.2010, 14:40
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://ya.ru);
StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
Data.Free;
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
Последний раз редактировалось 090808; 09.02.2010 в 14:42..
|
|
|
|
09.02.2010, 16:12
|
|
Участник форума
Регистрация: 20.04.2007
Сообщений: 174
С нами:
10030823
Репутация:
149
|
|
Сообщение от 090808
PHP код:
procedure TForm4.Button2Click(Sender: TObject);
var StrPage, ssylka:string;
Data:TstringList;
begin
idhttp1.HandleRedirects:=true;
StrPage:=idhttp1.Get('http://ya.ru);
StrPage:=idhttp1.Post(ssylka, Data);
Memo2.Lines.Text := StrPage;
Data.Free;
Как допустим получить в label1 то что находится в скобках <title> НУЖНО ЧТОБ ЭТОТ ТЕКСТ ВЫВЕЛО В MEMO1</title>
PHP код:
function fWSCut(wData, wStart, wEnd: string):string;
var
wOutData, wDelete: string;
begin
wOutData := StrPos(PChar(wData), PChar(wStart));
Delete(wOutData, 1, Length(wStart));
wDelete := StrPos(PChar(wOutData), PChar(wEnd));
Delete(wData, 1, Length(wData)-Length(wDelete));
Delete(wOutData, Length(wOutData) - Length(wDelete) + 1, Length(wDelete));
result := wOutData;
end;
Пример:
Memo2.Lines.Text := fWSCut(StrPage, '<title>', '</title>');
|
|
|
|
09.02.2010, 19:18
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
PHP код:
ICQClient1.UIN:=111111; // (Номер ICQ)
ICQClient1.Password:='12345'; // Пароль от этого номера
а как например Номер ICQ брать из edit1 и пароль из edit2? |
|
|
|
09.02.2010, 19:23
|
|
Участник форума
Регистрация: 26.11.2007
Сообщений: 266
С нами:
9714566
Репутация:
341
|
|
Код:
icq_num := StrToInt(Edit1.Text);
icq_pass := StrToInt(Edit2.Text);
|
|
|
|
09.02.2010, 19:26
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
С нами:
9626394
Репутация:
357
|
|
[Dezzter], зачем пасс в int переводить?
Код:
ICQClient1.UIN:=StrToInt(form1.edit1.text);
ICQClient1.Password:=form1.edit1.text;
|
|
|
|
09.02.2010, 22:19
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Сообщение от [Dezzter]
Код:
icq_num := StrToInt(Edit1.Text);
icq_pass := StrToInt(Edit2.Text);
Да, пасс действительно в инт переводить не нужно было 
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [Dezzter]](/avatars/avatar45529.jpg?1889021){kind=avatar}
Похожие темы
Линейный вид
