NMDSOFT

пятница, 30 июля 2010 г.

Описание DemoGoogleLogin

Ярлыки: GoogleLogin

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

Как видим вроде ни чего экстраординарного все просто и со вкусом
На форме имеем 3 кнопки, по средством которых и происходит либо авторизация пользователя, очистка памяти занимаемой компонентом (уничтожение его (после этого доступ к нему не возможен и вызовет исключительную ситуацию)) и авторизация с капчей.

далее >>

GoogleLogin Delphi часть 2

Ярлыки: GoogleLogin

И так в предыдущей статье посвященной GoogleLogin я описал практически все, что было необходимо, но не описал методов нашего компонента. На сегодняшний день компонент претерпел некоторые изменения и я не стал удалять старую статью, а решил оставить ее для того, чтобы четко было видно отличия компонента от версии к версии.

Свойства компонента GoogleLogin
Свойства компонента остались практически без изменений, появилось лишь дополнительное поле Captha

далее >>

вторник, 27 июля 2010 г.

Функция по загрузке jpg в Timage (Delphi)

Ярлыки: Функции, Image, Wininet

Не скажу, что прям моя разработка, но к ней я свою корявую руку приложил))

//непосредственно сама функция по загрузке картинки формата jpg из сети интернет
//для работы функции необходимо добавить в uses ... wininet, Jpeg;

function GetImage(url:string): TPicture;

var
  hInternet, hConnect: pointer;
  dwBytesRead, i, L: cardinal;
  sTemp,aUrl: AnsiString; // текст страницы
  memStream: TMemoryStream;
  jpegimg: TJPEGImage;
begin
  hInternet := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hInternet) then
    begin
      hConnect := InternetOpenUrl(hInternet, PChar(url), nil, 0, 0, 0);
      if Assigned(hConnect) then
        try
          i := 1;
          repeat
            SetLength(sTemp, L + i);
            if not InternetReadFile(hConnect, @sTemp[i], sizeof(L),dwBytesRead) then
              break; // Получаем данные с сервера
            inc(i, dwBytesRead);
            until dwBytesRead = 0;
        finally
          InternetCloseHandle(hConnect);
        end;
    end;
  finally
    InternetCloseHandle(hInternet);
  end;
  memStream := TMemoryStream.Create;
  jpegimg := TJPEGImage.Create;
  try
    memStream.Write(sTemp[1], Length(sTemp));
    memStream.Position := 0;
    //загрузка изображения из потока
    jpegimg.LoadFromStream(memStream);
    Result:=TPicture.Create;
    Result.Assign(jpegimg);
  finally
    //очистка
    memStream.Free;
    jpegimg.Free;
  end;
end;

далее >>

среда, 21 июля 2010 г.

GoogleLogin Delphi

Ярлыки: GoogleLogin

Доброго времени суток)))

Сегодня мы обсудим компонент googleLogin написанный Владиславом Баженовым aka Vlad (его сайт), ну и я его немного доработал (хотя для кого-то может, сделал его хуже)
Короче как бы то ни было, но я решил рассказать о нем подробнее, чтобы любой программист смог его применить по назначению и получить максимум из того, что в нем реализовано

Установка компонента в Delphi 2010

Для установки компонента необходимо зайти в папку googleapi\packages\googleLogin_pack
в ней найти файл GoogleLogin.dpk открыть его в среде Delphi 2010 (он был написан в ней)
в настройках среды прописать переменные окружения, в общем указать путь (где то на диске)\googleapi\packages\googleLogin_pack\ после чего в менеджере проекта нажать на надписи GoogleLogin.bpl правой клавишей мыши и выбрать пункт меню Install после чего если вы все сделали правильно должно появиться окно с информацией о том, что компонент успешно установлен в систему

далее >>

Установка компонентов в среду Delphi 7

Ярлыки: IDE

Для того чтобы установить компонент в среду Delphi, который идет с файлом [nameComponent].dpk необходимо выполнить следующие действия.

Выполнить двойной клик на файле [nameComponent].dpk после чего откроется среда разработки с окном Package - [nameComponent].dpk

Пример окна

В нем мы видим кнопки Compile, Add, Remove, Install, Options
Кнопка Compile компилирует как это понятно из названия компонент (иногда это требуется перед установкой специфических компонентов)
Кнопка Add добавляет файлы к пакету компонента, а кнопка Remove в свою очеред удаляет файлы из пакета в основном они нужны только для разработчиков компонентов.
Кнопка Install необходима для установки компонента в среду разработки.
Кнопка Options вызывает окно настройки пакета компонента

Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

пятница, 30 июля 2010 г.

вторник, 27 июля 2010 г.

среда, 21 июля 2010 г.

вторник, 20 июля 2010 г.

понедельник, 19 июля 2010 г.

понедельник, 12 июля 2010 г.

пятница, 30 июля 2010 г.

вторник, 27 июля 2010 г.

среда, 21 июля 2010 г.

вторник, 20 июля 2010 г.

понедельник, 19 июля 2010 г.

понедельник, 12 июля 2010 г.