ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

20.12.2008, 21:02
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
М, а есть тут функця тпа var_dump() как в пыхе чтоб тип показывала
|
|
|

20.12.2008, 21:17
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме: 3008839
Репутация:
1502
|
|
>>чтоб тип показывала
в смысле? вообще-то в паскале статическая типизация (вроде это так называется)
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|

20.12.2008, 21:26
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
desTiny, ну string/integer/array чоб показывало
Напрмер var_dump('123') скажет что это string
И ещё вопрос, вот мне эта функция explode мешает, много места занимает =\
Можно-ли её как-то сныкать в другой файл и потом типа include запросить её, ну а её куданить ну в dll пихнуть, ну в общем разбить код на части
Последний раз редактировалось Ponchik; 20.12.2008 в 21:32..
|
|
|

20.12.2008, 21:50
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме: 5749763
Репутация:
1680
|
|
Pir4tt ещё раз большое спс, всё отлично работает, просто думал что и так отпарсится, а там надо дописать memo1.Text:=a; ну это ладн.
У меня ещё вопрос... я посылаю GET коннект к сайту значит, а сайт назначает куки, мне эти полученные куки надо запихнуть в Memo, это первая нужная мне команда.
Далее отредактировав куки как надо, я передаю POST запрос и отредактированные куки уже должны быть + должна передаваться Content-Length этого пост запроса.
Очень желательно всё это делать на стандартном компоненте idHTTP, с кукисами я вообще никогда не работал, и не знаю принцип работы.
|
|
|

20.12.2008, 23:50
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме: 3008839
Репутация:
1502
|
|
Сообщение от Ponchik
desTiny, ну string/integer/array чоб показывало
Напрмер var_dump('123') скажет что это string
И ещё вопрос, вот мне эта функция explode мешает, много места занимает =\
Можно-ли её как-то сныкать в другой файл и потом типа include запросить её, ну а её куданить ну в dll пихнуть, ну в общем разбить код на части
а) если у тебя переменная задана типа var a: integer; то a навеки останется integer'ом... Точно так же константам присваивается тип однозначно. так что смысла в том, о чём ты говоришь, нету.
б) создаёшь новый юнит, фигаришь туда свою функцию (либо совсем тупо, либо отельно заголовок до слова implementation, и всю функу после), а потом пишешь оттуда, где хочешь юзать функу - uses Unit2
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|

21.12.2008, 00:03
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме: 1892597
Репутация:
836
|
|
Ponchik почитать можно про Variant
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|

21.12.2008, 00:08
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме: 1547094
Репутация:
120
|
|
Вот есть у меня такой кодик, я хочу отправить файл
PHP код:
procedure SendEmail(sTo, sFile: String);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('Files');
M.From.Text := '"Vet" <retriveipa777@pisem.net>'; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '"Post" <'+sTo+'>';
M.MessageParts.Add;
TIdAttachment.Create(m.MessageParts,sFile);
M.Subject := ':)'; //Тема письма
Form1.IdSMTP1.AuthenticationType := atLogin;
Form1.IdSMTP1.Host := 'smtp.pisem.net';
Form1.IdSMTP1.Username := 'retriveipa777@pisem.net';
Form1.IdSMTP1.Password := '*******';
Form1.IdSMTP1.Connect();
if Form1.IdSMTP1.Connected then
begin
Form1.IdSMTP1.Send(M);
end;
Form1.IdSMTP1.Disconnect;
end;
Но делфя по чему то выдаёт мне Ошибки в этих строчках:
TIdAttachment.Create(m.MessageParts,sFile);
Form1.IdSMTP1. AuthenticationType := atLogin;
И пишет мне это:
PHP код:
[DCC Error] Unit1.pas(210): E2003 Undeclared identifier: 'TIdAttachment'
[DCC Error] Unit1.pas(210): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(213): E2003 Undeclared identifier: 'AuthenticationType'
[DCC Error] Unit1.pas(213): E2003 Undeclared identifier: 'atLogin'
[DCC Error] svshost.dpr(11): F2063 Could not compile used unit 'Unit1.pas'
Кто знает как это исправить?
|
|
|

21.12.2008, 00:22
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме: 6828219
Репутация:
2274
|
|
xaker-boss, у тебя не существует TIdAttachment, надо его кагбы создать сначало
http://forum.vingrad.ru/forum/s/72a6918e29f4b4524b74845652ec71aa/topic-152032.html
========================
Блина, вот проблема ппц, я незнаю чё делать Х_Х
В общем есть у меня поле, прикрутил к нему UpDown кнопки, если число больше 1000 то ставится пробел, тоесть 1 000 мне это число надо отправить на сервер через WebBrowser я юзаю
str.Text - это и есть число с пробелом 1 000
wb1.Navigate('http://127.0.0.1/script.php?status=ok&number=' + str.Text + '&something=tralala');
в скрипте script.php записавыю QUERY_STRING в файл, смарю в файл и чё =\
Записывается status=ok&number=1
Всё остальное отрубается  ((
Как запретить полю делить числа пробелами, пытался вырезать эти пробелы, нащёл в гугле str_replace всёравно не помогло
Пытался IntToStr он грит типа немогу StrToInt грит несовместим int и str, или наоборот, ну неважно!
Надо запретить делить пробелами =\
Если выполнить str.Text := 1000; то оно нормально будет отображаться без пробелов, но если клацнуть на updown сразу делиться =\
Последний раз редактировалось Ponchik; 21.12.2008 в 00:31..
|
|
|

21.12.2008, 01:10
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме: 1892597
Репутация:
836
|
|
xaker-boss
var a:TIdAttachment;
a:=TIdAttachment.Create(m.MessageParts,sFile);
IdSMTP1.AuthenticationType
проверь, этот метод вообще у этого объекта есть?
Ponchik
1 - использовать Replace(' ', '');
2 - искать и удалять пробелы
3 - имхо самый вариант, использовать компонент TSpinEdit (вкладка Samples)
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|

21.12.2008, 02:01
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме: 1547094
Репутация:
120
|
|
А подскажитека код, чтобы при нажатию на кнопку делался скрин рабочего стала и сохранялся дапустим в C:\
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|