[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

В разделе uses должен быть объявлен модуль, в котором находится TCType.

И да, TCType - это не подкласс, а перечисляемый тип данных.

 

Как я могу сделать эту функцию Delphi?

HTML:

        public string MD5(string message)
        {
            byte[] bytes = new UnicodeEncoding().GetBytes(message);
            return BitConverter.ToString(((HashAlgorithm)CryptoConfig.CreateFromName("MD5")).ComputeHash(bytes)).Replace("-", "");
        }

 

beBoss, взгляните может оно?
http://delphi.about.com/od/adptips2004/a/bltip0804_5.htm

 

Я видел это, но он использует. Net
Я только что Delphi, нет. Net. Как сделать именно Delphi
(Заранее прошу прощения, но я использую Google Translator: S)

 

если тебе нужно подсчет md5 хэша, то можно использовать CryptoAPI или сторонний модуль

 

помогите с перенаправлением:

 

Ща-ща, экстрасенсы отошли, говорили минут через 15 будут...

 

Нужна помощь в криптовании файла написанного в делфи. Чтоб антивирус не определял.

 

Может Вы уточните свои обстоятельства?

 

Ребят. Помогите плиз с составлением регулярки.

Есть список сайтов:

http://www.lgr.ca/blog/2008/12/market-leverage.html
http://thailandlandofsmiles.com/2009/05/27/chatuchak-bangkoks-weekend-market/
http://www.thegermz.com/stock-trading/6000-dollars-in-2-weeks-with-the-stock-market
http://blogtipz.com/2009/06/20/the-market-for-premium-plugins/
http://www.affiliatextreme101.com/xtremeblog/research-your-market-im-bible-stuff
http://donalupeskitchen.com/2008/08/friday-farmers-market-in-eagle-rock/
http://flimjo.com/my-market-leverage-care-package/

Нужно сделать так, чтобы был список такой

http://www.lgr.ca/blog/
http://thailandlandofsmiles.com/
http://www.thegermz.com/stock-trading/
http://blogtipz.com/
http://www.affiliatextreme101.com/xtremeblog/
http://donalupeskitchen.com/
http://flimjo.com/

т.е остались только главные страницы блогов.

 

По самому адресу страницы очень часто можно не определить, где находится главная страница блога. Регулярки тут скорее всего не помогут.

 

Подскажите как сделать коннект к базе MySql(5.1.57) которая находится на сервере
Примеры которые в сети рассчитаны на более старые версии sql.

 

PHP:

var
z:integer;
s1:string;
Prox:TStringList;
Http:TIdHTTP;
Procedure ProxChange;
 begin
   try
     Prox.LoadFromFile('prox.txt');
     Writeln(' => Proxies list loaded');
   except
     Writeln(' => Proxies list not loaded');
     exit;
   end;
   Http.ProxyParams.ProxyServer := Copy(Prox.Strings[z],0,Pos(':',Prox.Strings[z])-1);
   Http.ProxyParams.ProxyPort := strtoint(Copy(Prox.Strings[z],Pos(':',Prox.Strings[z])+1,length(Prox.Strings[z])));
   Writeln(' => change proxy');
   str(Http.ProxyParams.ProxyPort,s1);
   Writeln(' => Server is ' + Http.ProxyParams.ProxyServer + '   Port is '+s1);
   inc(z);
 end;


Процедурка смены прокси. Гоняю ее в цикле, но иногда после смены, прога начинает вести себя некорректно или просто вылетает. В чем косяк?

 

Code:

Copy(Prox.Strings[z],0,Pos(':',Prox.Strings[z])-1);

Копировать нужно начиная с первого символа, а не с нулевого.

Code:

inc(z);

Переменная постоянно инкрементируется. В один момент может случится так, что

Code:

z > Prox.Count - 1

 

Проблема, каким образом в переменную

PHP:

  s := 'LOL a1b1c1 1011 44 22';

залетит эта рандомная строчка? у меня в мемо выходят логи, возможно ли копипастить из мемо? но тут опять проблема, нужно делать чтобы все автоматом шло

 

Копирование и икриминация учтены. Я запускаю процедуру, когдща сервак дает определеннй ответ. Мож нужно хттп как-то обновлять или просто ставишь параметры прокси и всё?

 

Нет, нужно устанавливать только параметры прокси. Как именно программа перестает работать, как это отображается?

 

Все нашел косяк. Затупил ппц. Забыл логины менять, прога чекала 1 акк

 

Код коннекта бросьте чтоле.

 

Глянь. Там к статье еще файлы прилагаются, думаю разберешься.

Code:

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1318