Листинг о том, как загружать изображения на сайт imageshack.us.

function sendimgs(path:string):string;
var
 HTTP: TIdHTTP;
 MPS: TIdMultiPartFormDataStream;
 s,s2,format:string;
begin
 HTTP := TIdHTTP.Create(nil);
 MPS := TIdMultiPartFormDataStream.Create;
 HTTP.HandleRedirects := True;
 s:='';
 if fileexists(path) then
  begin
   try
    {mps.AddFormField('Upload', 'Submit Query');
    s:= HTTP.Post('http://iload8.imageshack.us/upload_api.php', MPS); }
    mps.AddFile('fileupload', path, 'multipart/form-data');
    s:= HTTP.Post('http://imageshack.us/index.php', MPS);
    if pos('/images/blue/check.png', s)>0 then
    begin
      result:='Done';
    end;
    result:='Error while sending';
   finally
  MPS.Free;
  HTTP.Free;
  deletefile(path);
 end;
end else result:='File not found';
end;

Тема на форуме.

Код:

uses DateUtils;

...................

var

t: TTime;

dt: TDateTime;

begin

t := StrToTime(Edit1.Text);

dt := DateTimePicker1.Date + t;

ShowMessage(FloatToStr(HoursBetween(Today,dt)));

end;

Тема на форуме.

От редактора. Здравствуйте, уважаемые читатели журнала « ПРОграммист » от Клуба ПРОграммистов www.programmersforum.ru. С сентябрьского номера наша редакция работает в обновленном составе и со свежими силами продолжит вгрызаться в нелегкое и, в то же время, любимое издательское дело. Помогут нам в этом редакторы: Василий Мединцев и Ян Липлавский. Но, помощники требуются всегда. Не будем забывать, что наш проект некоммерческий и базируется на энтузиазме наших читателей, авторов и конечно же редакторского состава. Поэтому мы всегда рады новым предложениям, статьям и заметкам, которые вы можете прислать и высказать на редакторский ящик-копилку maindatacentr@gmail.com. Не стесняемся и будем активнее.

В этом выпуске…
Материал про юзабилити интерфейсов продолжит Александр Демьяненко в рубрике «Отдел тестирования». И наконец-то стартует рубрика «Переводные материалы». Статья Евгения Амосова подробно расскажет нам про протокол работы наших хвостатых PS/2-помощников.

Что такое ТЗ? Как правильно составить ТЗ? Кто должен составлять ТЗ? Прямо голова идет кругом. Но не расстраивайтесь. На эти и другие вопросы постарается ответить Дарья Устюгова.

Для развития координации, цветового восприятия ребенку до 3-5 лет требуются простые и понятные игрушки. Одним из ярких примеров является раскраска и интерактивный алфавит. Не мне вам рассказывать, родители меня поймут, что увлечь малыша могут веселые и красочные картинки зверей, игрушек. Мало того, возможность почувствовать себя художником – это непередаваемое ощущение для ребенка. А поможет нам в этом ваш верный помощник – компьютер и Владимир Дегтярь в рубрике «2D графика». Оценивать же будет самый строгий и требовательный судья – ребенок, экзаменатор нашего труда.

Хорошо-ли вы умеете готовить? Нет, это не шутка , вспомните про направленность нашего журнала. Вспомнили? Cегодня в рубрике «Лаборатория» шеф-повар, Виталий Белик, приготовит компилятор по своему домашнему рецепту. Bon Appetit, друзья!

В рубрике «Архив» мы решили поднять тему взаимодействия с MySQL в C++. В данной статье делится опытом наш форумчанин psycho-coder.

Вот и настал час 0xFF! Мы знаем, что среди наших читателей есть не только программисты, сисопы, но и биологи, радиоинженера и радиолюбители, дизайнеры, физики и химики, профессионалы и просто обычные люди  С этим стоит немножко поспорить. Не совсем обычные. Ведь практически сейчас все, что нас окружает, то чем мы пользуемся ежедневно и ежечасно, так или иначе связано с программированием. Пожалуй, ни одна профессия не пустила так глубоко свои корни во все сферы нашей жизни, как  программист . Поэтому, с днем Программиста всех Вас, читающих нас и пишущих нам, поздравляет коллектив Редакции журнала « ПРОграммист ». Но, это не все новости на сегодня. Итак…

СОДЕРЖАНИЕ НОМЕРА
ТЕМА НОМЕРА
Наши разработки …………………………….. ……….. с.0х02
НЕВЕРОЯТНО, НО ФАКТ
Любопытные факты …………………………….. ………. с.0х03
ПЕРЕВОДНЫЕ МАТЕРИАЛЫ
Исследование протокола PS/2 для мышки …………………… с.0×06
ОТДЕЛ ТЕСТИРОВАНИЯ
Разработчики – интерфейс – пользователи. Часть 2 …………. с.0х0E
ОБЩИЕ ВОПРОСЫ
О правильном составлении ТЗ. Часть 1 ……………………. с.0х14
2D ГРАФИКА
Программы для самых маленьких ………………………….. с.0х17
ЛАБОРАТОРИЯ
Компилятор домашнего приготовления ……………………… с.0х1D
АРХИВ
Работа с MySQL в С++ …………………………….. …… с.0х2A
ЮМОР
Афоризмы – хохмы – загадки …………………………….. с.0х32

Ссылки для скачивания (формат PDF, 53 c., в журнале исходники к статьям):
http://slil.ru/29668837
http://raxp.radioliga.com/cnt/s.php?p=pro6.pdf
http://programmersclub.ru/pro/
http://procoder.info

добрый вечер. в переменную типа стринг качается через идхттп гет запросом страница. страница в ютф8, после всего этого пытаюсь распарсить через pos (нужно найти фразу <liкакойтотекстнарусском<strong>) . соответственно, руские буквы кракозябрами, и пос их не ищет. пытался декодировать utf8toansi и наоборот – ничего не помогает. кракозябры меняются только

function UTF8ToStrSmart(Value: String): String;

      function UTF8ToStr(Value: String): String;
      var
        buffer: Pointer;
        BufLen: LongWord;
      begin
        BufLen := Length(Value) + 4;
        GetMem(buffer, BufLen);
        FillChar(buffer^, BufLen, 0);
        MultiByteToWideChar(CP_UTF8, 0, @Value[1], BufLen - 4, buffer, BufLen);
        Result := WideCharToString(buffer);
        FreeMem(buffer, BufLen);
      end;

var
  Digit: String;
  i: integer;
  HByte: Byte;
  Len: Byte;
begin
  Result := '';
  Len := 0;
  if Value = '' then Exit;
  for i := 1 to Length(Value) do
  begin
    if Len > 0 then
    begin
      Digit := Digit + Value;
      Dec(Len);
      if Len = 0 then
        Result := Result + UTF8ToStr(Digit);
    end else
    begin
      HByte := Ord(Value);
      if HByte in [$00..$7f] then       //Standart ASCII chars
        Result := Result + Value
      else begin
        //Get length of UTF-8 char
        if HByte and $FC = $FC then
          Len := 6
        else if HByte and $F8 = $F8 then
          Len := 5
        else if HByte and $F0 = $F0 then
          Len := 4
        else if HByte and $E0 = $E0 then
          Len := 3
        else if HByte and $C0 = $C0 then
          Len := 2
        else begin
          Result := Result + Value;
          Continue;
        end;
        Dec(Len);
        Digit := Value;
      end;
    end;
  end;
end;

Есть ещё 2 совета.
1. Брось инди и переходи на ICS.
2. Обнови инди до максимально последней версии.

Код:

function HttpGetUrl(url: string; idHttp: TidHttp): string;

var

M: TStringStream;

begin

M := TStringStream.Create('');

//  try

try

IdHTTP.Get(url, m);

if IdHTTP.ResponseCode = 502 then

begin

result := 'ошибка|'+url;

freeandnil(m);

exit;

end;

except

on e: exception do

begin

//          MessageBox(application.ActiveFormHandle, PAnsiChar('Произошла ошибка при получении текста страницы: '+#13+ url + #13+e.Message), 'Ошибка', IDOK);

result := 'ошибка|'+url;

freeandnil(m);

end;

end;

result := m.DataString;

//  finally

freeandnil(m);

//  end;

end;

итого полный код будет:
Код:

//получаем тест страницы со ссылками на объявления
slText := UTF8ToStrSmart(HttpGetUrl(URL, idHttp1));


Тема на форуме.

var
  p: PByte;
  p1: TBytes;
  i: byte;
begin
  GetMem(p, 5);

  for i := 0 to 4 do
  begin
    p^ := i;
    Inc(p, 1);
  end;

  Dec(p, 5);

  SetLength(p1, 5);

  Move(p^, p1[0], 5);
  FreeMem(p);
end;

Тема на форуме.

Есть модуль от Андерса Меландера, бесплатный. Подключаете его в секцию uses и пишете код:

procedure Tform1.FormCreate(Sender : Tobject);
var
gif : TGifImage;
begin
gif:=TGIfImage.Create;
try
Image1.Picture.LoadFromFile('1.gif);
finally
gif.Free;
end;
end;

А вот собственно сам модуль

Вложения

GIFImage.rar (53.6 Кб)

Тема на форуме.

Posted by Chas under Рассылка

От ведущего.

Добрый вечер, читатели рассылки. Вот уже сентябрь, закончилось жаркое лето, для кого то началась учёба, многие наши читатели окунулись в рабочую среду после летних отпусков, а в нашем клубе всё по прежнему кипит жизнь. В сегодняшнем выпуске обзор интересных тем с форума.

(читать всё…)

В программе есть всплывающее окно, как сделать чтобы когда оно будет всплывать, оно было поверх остальных окон, но при этом не брало на себя фокус ввода?

код:

тема на форуме

код:

Тема на форуме

Есть прибор, который подключаеться через com порт к компьютеру. Протокол обмена известен. Как отправить ему 16 ричное значение и как прочитать такое значение от него?

код:

Тема на форуме