Версия для печати темы

Автор: Unconnected 28.06.2010 21:20

Привет всем.

Сейчас начал переводить одно своё приложение на api, весёлое занятие) С механизмами всё понятно, часть проги портировал, а вот с отображением контролов на окне не очень ясно.. Во-первых - всегда ли обязательно создавать, например, label таким образом (для себя в ф-ю обернул):

Procedure createstatic(caption:string;x,y,wid,hei:integer);
begin
  CreateWindow('static', pchar(caption), WS_CHILD or WS_VISIBLE,x,y,wid,hei,hwndmain,10000, hInstance, 0);
end;

Автор: Client 28.06.2010 21:51

var
  Font: HFONT;
...
Font := CreateFont( -30, 15, 25, 10, 1000, 1, 1, 0,
                    DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
                    CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY,
                    DEFAULT_PITCH or FF_DONTCARE, 'Courier New' );
...
SendMessage( Btn, WM_SETFONT, Font, 0 );

Автор: volvo 28.06.2010 22:18

Автор: Unconnected 29.06.2010 3:14

Присоединил .rc, вписал там такое:

form
  CONTROL "WinAPI. Урок 2. Создание контролов с помощью ресурсов", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 10, 180, 30
  CONTROL "Закрыть", 51, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 126, 88, 60, 14

Автор: volvo 29.06.2010 7:50

// новая функция, которая обрабатывает все команды
// от элементов управления диалога
function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
  Result := False;
  case uMsg of
    // инициализация окна
    WM_INITDIALOG:
    begin
      SendMessage(GetDlgItem(hWin, 51), WM_SETFONT, WPARAM(myFont), 0); // Вот оно, чудо чудное !!!
    end;

    //обрабатываем команды получаемые от пользователя
    WM_COMMAND:
    begin
      case LoWord(wp) of
        // а вот и наша кнопка, с идентификатором 51...
        51: EndDialog(hWin, 0);
      end;
    end;
  end;
end;

TestDialog DIALOG  10, 10, 300, 110
STYLE WS_POPUP | WS_BORDER
CAPTION "Test" 
{
    CONTROL "WinAPI. Lesson 2", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 8, 10, 180, 30
    CONTROL "Close", 51, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 126, 88, 60, 14
}

Автор: Unconnected 29.06.2010 20:13

Автор: volvo 29.06.2010 21:14

Автор: Unconnected 29.06.2010 22:58

Автор: volvo 30.06.2010 2:45

Автор: Unconnected 30.06.2010 14:37

Автор: Unconnected 1.07.2010 4:49

Ещё одну свою заморочку с api вспомнил. Там есть функция для рисования на устройстве ("в контексте устройства") jpg-картинки? Например, имея хэндл формы, отрисовать там что-то. Пол-инета перерыл, получилось отобразить битмап с помощью loadimage и ещё пары функций, а для jpg нету ничего (loadimage тянет битмапы, курсоры и иконки только).

Автор: volvo 1.07.2010 5:27

Либо вот такой бред: http://forum.sources.ru/index.php?showtopic=208869 , либо берешь http://www.progdigy.com/?page_id=7 библиотеку GDI+, и рисуешь через GdipLoadImageFromFile (да в принципе, там много чего есть: http://msdn.microsoft.com/en-us/library/ms533799%28v=VS.85%29.aspx).

Добро пожаловать в WinAPI

Автор: Unconnected 1.07.2010 6:05

В бреде я был, только что-то сильно много там всего и непонятного) Библиотеку скачал, посмотрел демки, выбрал вроде как нужное, для открытия gif (ну я так понял, и jpeg тоже должно жевать). Вытащил следующее:

Procedure OnPaint(DC: HDC);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  graphics := TGPGraphics.Create(DC);
  Image:= TGPImage.Create('vol.gif');
  graphics.DrawImage(image, 0, 0);
  Image.Free;
  graphics.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var handle:hdc;
    ps:paintstruct;
begin
  Handle := BeginPaint(form1.form.Handle, ps);
  OnPaint(Handle);
  EndPaint(form1.form.handle, ps);
end;

Автор: volvo 1.07.2010 14:41

Итак, результаты экспериментов с отрисовкой JPG без использования доп. библиотек: GDI+ у меня на D2009 не завелся, там что-то поменялось, а качать версию, которая специально предназначена для D2009 мне лень, поэтому возиться с этим не стал.

Способ с OLE. Отработал, но я опять же не стал делать чистое API-приложение, положил на форму TPanel, и отрисовал на ней. Все прекрасно отобразилось:

// В интерфейсной части модуля
function OleLoadPicturePath(szUrlorPath: PWideChar;
  unkCaller: IInterface; dwReserved: Integer; drReserved: Cardinal;
  const iid: TGUID; ppvRet: Pointer): HRESULT; stdcall;


// а это - в Implementation
uses ActiveX, ComObj;

// Если не описать этого, то получишь ошибку, что OleLoadPicturePath отсутствует в модуле
// olepro32.dll ... Но оно действительно не там, а в oleaut32.dll, и это надо объяснить программе...
function OleLoadPicturePath; external 'oleaut32.dll' name 'OleLoadPicturePath';


const
  IID_IPicture: TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}';

procedure TForm1.Button5Click(Sender: TObject);
var
  pic: IPicture;
  f_name: WideString;

  picWidth, picHeight: Integer;
  bounds: TRect; // Здесь оно на фиг не надо. но Render требует...
begin
  f_name := 'F:\Test\av-1235.jpg';
  Pic := nil;

  OleCheck( OleLoadPicturePath(PWideChar(f_name), nil, 0, 0, IID_IPicture, @Pic) );
  OleCheck( pic.get_Width(picWidth) );
  OleCheck( pic.get_Height(picHeight) );

  pic.Render(GetWindowDC(Panel1.Handle), 0, 0, Panel1.Width, Panel1.Height,
    0, picHeight, picWidth, -picHeight, bounds);
end;

Автор: volvo 1.07.2010 16:46

Кстати, завёлся GDI+ и на 2009-ой Дельфи (достаточно было в Project -> Options -> Delphi Compiler -> Conditional Defines добавить COMPILER5_UP, тогда модули GDIPOBJ/GDIPAPI прекрасно компилируются).

И вот это:

Procedure myOnPaint(DC: HDC);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  Image:= TGPImage.Create('F:\Test\av-1235.jpg');
  graphics := TGPGraphics.Create(DC);
  graphics.DrawImage(image, 0, 0);
  Image.Free;
  graphics.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var ps:paintstruct;
begin
  BeginPaint(form1.Handle, ps);
  myOnPaint(Form1.Canvas.Handle);
  EndPaint(form1.handle, ps);
end;

Автор: Unconnected 1.07.2010 17:38

Сейчас как раз ковырялся с gdi, хорошо, что обновил форум Просто не хотелось отдавать 20 кб на откуп activex и comobj (хотя способ, конечно, рабочий). У меня на D2007, кстати, тоже не завелась gdi - видела ошибку в коде, поэтому пишу под семёркой сейчас.

Автор: Unconnected 1.07.2010 18:05

Там в этой GDI есть тип непонятный какой-то, называется IStream, якобы поток. С T<...>Stream его ассоциировать никак не получается, да даже и описать переменную такого типа тоже нельзя. Он используется во многих функциях загрузки изображений. Поползал по юнитам, нашёл только что он является интерфейсом от некого ISequentialStream (которого, впрочем, моя программа тоже не видит, наверное, это всё приватные структуры). Это я так картинки из ресурсов гружу:

Function LoadJpegRes(const ID: string): TStream;
var
  RS: TResourceStream;
begin
  RS:=TResourceStream.Create(HInstance, ID, 'JPEG');
  result:=TStream.create;
  try
    RS.Seek(0, soBeginning);
    Result.CopyFrom(rs,rs.size);
  finally
    RS.Free;
  end;
end;

Procedure myOnPaint(DC: HDC;x,y:integer;stream:TStream);
var
  graphics : TGPGraphics;
  Image: TGPImage;
  destinationRect: TGPRectF;
begin
  Image:= TGPImage.Create();
  GdipLoadImageFromStream(stream,image); //<-тут ошибка
  graphics := TGPGraphics.Create(DC);
  graphics.DrawImage(image, x, y);
  Image.Free;
  graphics.Free;
end;

Procedure getimage(id:string;x,y:integer); //<--изначально собираюсь вызывать её с ID ресурса и координатами
var ps:TPaintStruct;
begin
  BeginPaint(form1.form.Handle, ps);
  myOnPaint(Form1.form.Canvas.Handle,x,y,loadjpegres(id));
  EndPaint(form1.handle, ps);
end;

Автор: volvo 1.07.2010 18:23

Автор: Unconnected 1.07.2010 19:21

Спасибо за ссылку, сопоставил коды, получилось:

procedure TForm1.Button1Click(Sender: TObject);
var stream:IStream;
    image:TGPImage;
    graphics:TGPGraphics;
begin
  with TResourceStream.Create(hInstance,'PIC1','JPEG') do try
    OleCheck(CreateStreamOnHGlobal(0,True,Stream));
    OleCheck(Stream.Write(Memory,Size,nil));
    Image:=TGPBitmap.Create(Stream);
    graphics:=TGPGraphics.Create(form1.Canvas.Handle);
    graphics.DrawImage(image, 0, 0, 100,100);
  finally
    Free;
    image.free;
    graphics.Free;
  end;
end;