003
18.06.2006, 21:40 Uhr
J-jayz-Z
Perl Crack ala Carte
(Operator)
|
So sieht er derzeit aus:
| C++: |
LRESULT CALLBACK WndProc(
HWND hwnd,
UINT message,
WPARAM wParam,
LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
switch(message)
{
case WM_CREATE:
return 0;
case WM_PAINT:
hdc = BeginPaint(hwnd, &ps);
GetClientRect(hwnd, &rect);
DrawText(hdc, TEXT("Hey fun-soft.de :-P"), -1, &rect,
DT_SINGLELINE | DT_CENTER | DT_VCENTER);
EndPaint(hwnd, &ps);
return 0;
case WM_DESTROY:
PostQuitMessage(0);
return 0;
case WM_CHAR:
hdc = GetDC(hwnd);
GetClientRect(hwnd, &rect);
TextOut(hdc, 1, 1, (LPCSTR)&wParam, 1);
ReleaseDC(hwnd,hdc);
}
return DefWindowProc(hwnd, message, wParam, lParam);
}
|
Und so geht es auch. Aber wieso muss ich eine Referenz casten und mit einem normalen Objekt geht es nicht ?!
Dank dir, Uwe !
--
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"' |
