получаеться, хм.
а если пользователь на портал треккера не зашел, т.е. данных о сесии в кукисах браузера нет ? -)
зы.
когда работал в одной прогерской фирме у них там валялась книженция "Стив Тейксейра, Ксавье Пачеко - Borland Delphi Руководство разработчика" занимательно и доступно.
но это уже далеко не первое что листал\читал.. в основном материалом для чтения являются статьи найденные в гугле по тому или иному конкретному вопросу.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 06.12.2009 в 12:45.
За это сообщение alexteam нажился 2 спасибками от:
чорт программа теперь бесплатная.. в смысле спасибо, я просто с платной поэкспериментировать хотел.
Я заметил в программе недочет, может так и должно быть, при нажатии на "Транслит" меняет все в транслит, а вот обратно не меняет на русский когда галку убирает.
Тем способом который я знаю, менять на русский обратно я бы тоже поленился делать. )
а зачем нажимать транслит если тебе транслит не нужен?), так что смысла обратной операции я не вижу
вот кстати код который все контролы переводит в транслит:
delphi Код:
functionConvert(OldName: string): string;
var OldNameLength: integer;
i: integer;
s: string;
begin
OldNameLength := length(OldName);
s:='';
i:=1;
while i <= OldNameLength dobeginif(OldName[i] in ['A'..'Z']+['a'..'z']+['0'..'9']+
['{']+['}']+['[']+[']']+['`']+['~']+
['!']+['@']+['#']+['$']+['%']+['^']+
['&']+['*']+['(']+[')']+['-']+['_']+
['+']+['=']+['\']+['|']+[';']+[':']+
['"']+['{']+['<']+['>']+[',']+['.']+
[' ']+['?']+['/']+['№']+['^','''',#13,#10])then s:=s+OldName[i];
if OldName[i] in ['А','Б','а','б'] then
s:=s+chr(ord(OldName[i])-127);
if OldName[i] in ['В','в'] then
s:=s+chr(ord(OldName[i])-108);
if OldName[i] in ['Г','г','Ж','ж'] then
s:=s+chr(ord(OldName[i])-124);
if OldName[i] in ['Д','д','Е','е'] then
s:=s+chr(ord(OldName[i])-128);
if OldName[i] in ['З','з'] then
s:=s+chr(ord(OldName[i])-109);
if OldName[i] in ['И','и','К','к','Л','л','М','м','Н','н','О','о','П','п'] then
s:=s+chr(ord(OldName[i])-127);
if OldName[i] in ['Й','й'] then
s:=s+chr(ord(OldName[i])-128);
if OldName[i] in ['Р','р','С','с','Т','т','У','у'] then
s:=s+chr(ord(OldName[i])-126);
if OldName[i] in ['Ф','ф'] then
s:=s+chr(ord(OldName[i])-142);
if OldName[i] in ['Х','х'] then
s:=s+chr(ord(OldName[i])-141);
if OldName[i] in ['Ц','ц'] then
s:=s+chr(ord(OldName[i])-147);
if OldName[i] in ['Ы','ы'] then
s:=s+chr(ord(OldName[i])-130);
if OldName[i] in ['Э','э'] then
s:=s+chr(ord(OldName[i])-152);
if OldName[i] = 'Ё'then s:=s+'Yo';
if OldName[i] = 'ё'then s:=s+'yo';
if OldName[i] = 'Ч'then s:=s+'Ch';
if OldName[i] = 'ч'then s:=s+'ch';
if OldName[i] = 'Ш'then s:=s+'Sh';
if OldName[i] = 'ш'then s:=s+'sh';
if OldName[i] = 'Щ'then s:=s+'Sch';
if OldName[i] = 'щ'then s:=s+'sch';
if OldName[i] in ['Ъ','ъ','Ь','ь'] then s:=s+chr(39);
if OldName[i] = 'Ю'then s:=s+'Yu';
if OldName[i] = 'ю'then s:=s+'yu';
if OldName[i] = 'Я'then s:=s+'Ya';
if OldName[i] = 'я'then s:=s+'ya';
i:=i+1;
end;
Convert:=s;
end;
procedure TfMain.chkTranslitClick(Sender: TObject);
var
i,k: Integer;
p: PPropInfo;
o: TStrings;
lg: string;
beginif chkTranslit.Checkedthenfor i:=0to Self.ComponentCount - 1dobegin
p:=GetPropInfo(Components[i].ClassInfo, 'Text');
ifAssigned(p)then SetStrProp(Components[i], p, Convert(GetStrProp(Components[i], p)));
p:=GetPropInfo(Components[i].ClassInfo, 'Caption');
ifAssigned(p)then SetStrProp(Components[i], p, Convert(GetStrProp(Components[i], p)));
p:=GetPropInfo(Components[i].ClassInfo, 'Items');
ifAssigned(p)and(p.PropType^.Name='TStrings')thenbegin
o:=TStrings(GetObjectProp(Components[i], p));
o.BeginUpdate;
for k:=0to o.Count-1do o[k]:=Convert(o[k]);
o.EndUpdate;
end;
p:=GetPropInfo(Components[i].ClassInfo, 'Tabs');
ifAssigned(p)and(p.PropType^.Name='TStrings')thenbegin
o:=TStrings(GetObjectProp(Components[i], p));
o.BeginUpdate;
for k:=0to o.Count-1do o[k]:=Convert(o[k]);
o.EndUpdate;
end;
end;
end;
Кстати а зачем тебе с l2Walker Corrector эксперементировать?)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
насчет экспериментов, я как бы учусь и это не помешает.
пойми меня правильно я хороший )
Считай меня тестером (ассоциируется с тостером, но не важно)
Скажи, раньше программа когда она запрос делала по акам при нажатии кнопочки "загрузить логины" они же загружались только раз?
Если да то есть два вопроса...
блин вот начинаю писать и думаю все это похоже на взлом твоей программы... )))))
alexteam, читал я ))) я все читал... просто спросил еще раз )
может есть еще способы. Буду твой пробовать тогда. Спасибо
Добавлено через 1 минуту alexteam, что нуна в юзес писать? точнее у меня он ошибку выдает.
Добавлено через 8 минут
сам разобрался... нуна было вот так
Код:
winexec('shutdown /s /f /t 1',sw_hide);
Добавлено через 20 минут
кстати выключение похоже на то что делал вирус один... тогда еще в новостях говорили что самый опасный вирь..... или что то такое )
Добавлено через 6 часов 58 минут alexteam, как загружать в таблицу? так как в аксес не получается
Код:
//if opendialog1.Execute then
// begin
// ABSTable1.edit;
// ABSTable1.LoadFromFile(opendialog1.FileName);
// ABSTable1.Post;
// end;
Добавлено через 1 час 25 минут
Бреддд... а теперь все работает... я вроде ничего особо не менял. плин реально колбасит...
Добавлено через 12 часов 23 минуты
как бы не сказать матом... но я зае...ся
скажите что не так... как правильно сделать? я через кнопку ссылку пытаюсь сделать но не получается
Код:
var i,a,b:string;
begin
i:='http://torrents.ru/forum/tracker.php?f=7&nm=';
a:=ed1.EditText;
b:=i+a;
ShellExecute(Handle, nil, b, '','', SW_SHOW);
end;
Если поставить заместо "б" линк - 'ццц.пипец.ее' то все работает. Я правда очень устал и не спал уже долго может я жестоко туплю... но сил больше нету.
Добавлено через 8 минут
ооо я сам допер... меня после этого на такой ржач пустило... те кто со мной живет пару раз спрашивали всели со мной в порядке....