by SeoCoder on Ноябрь 17, 2008
По умолчанию в Delphi идет с не плохими компонентами Indy. На дельфи также можно использовать голые сокеты, пример их использования есть в предыдущем посте. Но сегодня я расскажу о других бесплатных компонентах - ICS.
Самое главное, что в них прельщает это их асинхронность, то есть компонент не "подвешивает" форму, не будучи вынесеным в отдельный поток. Главный минус, не очень удачный хелп, но примеры из стандартной поставки решают эту проблему. Второе, с чем наверняка придется столкнуться всем, компоненты для работы с ssl, если раньше они были платными, теперь они тоже for free. Есть небольшой нюанс при установке именно ssl компонент.
Найдем в распакованном архиве файлик OverbyteIcsDefs.inc и в нем найдем такую строчку:
// {$DEFINE USE_SSL}
Нам необходимо расскоментировать эту опцию и откомпилировать и установить проект. Вот и все. 
Удачи в освоении нехитрых технологий программирования.
P. S. Что нас ждет в близжайщих постах: Гугл фильтр чекер, Многопоточный FTP аплоадер, GYMSnippets - настраиваемый парсер снипетов гугла, яху, мсна, а также обзор блогов оставивших заявку. Не стесняемя подписываемся и комментируем.
by SeoCoder on Октябрь 13, 2008
Как я писал ранее - купил я себе апостер, руками добавлять сразу достало задания. И вот что я сделал.
Создал в папке my_functions с апостером такой вот php файл. Сорри за код, на php я мало силен
<?php
$target =
"/var/www/html/a-poster/my_functions/";
$target =
$target .
basename( $_FILES['uploaded']['name']) ;
$ok=
1;
if (isset($_POST["key"])) {
if ($_POST["key"] ==
'СЕКРЕТНОЕ СЛОВО') {
if(move_uploaded_file($_FILES['uploaded']['tmp_name'],
$target))
{
echo "The file ".
basename( $_FILES['uploadedfile']['name']).
" has been uploaded";
}
else {
echo "Sorry, there was a problem uploading your file.";
}
}
} else echo "Nothing";
?> Что делает этот код - только принимает файлы заданий. Но на всякий случай, использую секретный код. Далее на delphi написал клиента - им указываем свой файл с линками заданий, программа перемешивает линки, постит их на сервер и добавляет сразу задания для спама.
Вообщем-то и все. Скриншот по катом. Кому вдруг интересна такая программа - переводим 15 баксов на Z260880410831, в примечании к платежу, пишем свое мыло, куда отправить прогу.
Скажу честно никакой привязки нет, а первая условно-платная программа, чтобы не убили интернет.
[click to continue...]
by SeoCoder on Февраль 24, 2008
Выкладываю сырцы свою старой утилиты - многопоточный UniversalBIDs чекер.
У нас в проекте всего 2 unit. Один для многопоточной обработки. И главный - для отображения потоков. Кто помнит, можно было определять цену бида для 3х ppc - Umax, Klick, Peack.
Я выложу как обычно код и дам небольшие комментарии.
Файл проекта.
[code lang='delphi']program UniversalBIDs;
uses
Forms,
Main in ‘Main.pas’ {Form1},
threadHTTP in ‘ThreadHTTP.pas’;
{$R *.res}
begin
Application.Initialize;
Application.Title := ‘UniversalBIDs’;
Application.CreateForm(TForm1, Form1);
Application.Run;
end. [/code]
продолжение сырцов для многопоточного UniversalBIDs чекер
