Übrigens, wer glaubt, das alles ändere sich mit der Verschlüsselung der Kommunikation der DNS-Server untereinander, sollte gleich auch mal ein paar Säcke Licht in’s Ministerium tragen… vielleicht hilft das ja ein wenig?!

Random Posts

• Was mir zur Bundestagswahl und den Internetauftritten der Parteien am deutlichsten aufgefallen ist...
• C/C++ in BlitzMax einbinden
• CV - SebastianG
• Piratensache
• UDP-Test in BlitzMax

Tja, soviel zur Demokratie in Deutschland, in der Parteien alles tun, um den Wähler nicht zu Wort kommen lassen, bis hin zum generellen Sperren der Kommentarmöglichkeit bei Auftritten auf Plattformen wie zum Beispiel YouTube. Ob die Parteien Plattformen wie YouTube denn auch inhaltlich verstanden haben oder nur die Demokratie nicht?
Nun, ich hege gewisse Zweifel … sowohl was das Verständnis der Parteien um YouTube und dergleichen, als auch was gelebte Demokratie in der Parteienlandschaft angeht.

Related Posts

• Piratensache
• Verfassungswidrige Bundestagswahl?

Der ehemalige Verfassungsrichter, Ernst Gottfried Mahrenholz, in einem Interview bei der Süddeutschen zu der Frage ob eine Regierungsbildung alleine über Überhangmandate überhaupt verfassungskonform sein kann.
siehe Artikel: “Kungelei – das Volk wird beiseitegeschoben”

Nun droht angesichts der aktuellen Umfragen genau dieses Szenario sich möglicherweise zu realisieren, denn die CDU gemeinsam mit der FDP erreichen, zur Erleichterung vieler im Lande, die Mehrheit wahrscheinlich nicht direkt, möglicherweise jedoch dennoch über die Überhangmandate. Ereilt uns angesichts diese drohenden Katastrophe einer Regierung, unter Beteiligung einer FDP, eventuell sogar eine Neuwahl im Jahr 2011, wenn das Wahlrecht geändert werden muss? Oder werden wir mit dem Desaster, sofern es überhaupt in dieser Form zustande kommt, die vollen vier Jahre leben müssen?

Related Posts

• Was mir zur Bundestagswahl und den Internetauftritten der Parteien am deutlichsten aufgefallen ist...
• Piratensache

Quelle: www.RetteDeineFreiheit.de

Related Posts

• Du bist Terrorist

Mein bester Freund, oder besser gesagt ehemals bester Freund, Tommi Stumpff, war lange Zeit Musiker, hatte auch einige CD’s veröffentlicht, unter anderem die letzten Erscheinungen bei einer sehr großen Plattenfirma, einer sogenannten Major-Company. Interessant war, nachdem die letzte CD veröffentlicht war, eine 10.000er Pressung, war diese jedoch gar nicht verfügbar, auch nicht bei Bestellung, da, auf Anfrage, vorgeblich vergriffen.
Wie kann das sein?

Nun, da diese Platten nie verkauft wurden, sind sie irgendwann wieder geschreddert worden und die Plattenfirma hat die bei Pressung zu bezahlende GEMA-Gebühr zurückerstattet bekommen, wie das üblich ist. Somit beläuft sich der Verlust auf die nicht zurückerstattende Zahlung an den Künstler, zuzüglich den winzigen Etat an den Agenten zwecks Produktwerbung, sprich damals etwa 50000 DM.
Das macht keinen Sinn, oder etwa doch?

Nun, die Musikindustrie wünscht sich schon sehr lange Hand in Hand mit den Vertriebskanälen eine möglichst geringe Anzahl von Major-Titeln im Verkauf, da dies eine hohe Effizienz in Fertigung, Lagerhaltung und Aufstellersystemen im Vertrieb bedeutet. Wenn nun also die Indies aufgekauft werden, die relevante Stückzahlen im Verkauf ausmachen könnten, also ab etwa 10000 Stk. pro Titel, und diese möglicherweise gar nicht in den Handel gelangen, so fördert dies in einer Mischkalkulation den Vertrieb der Major-Titel deutlich und verringert Lagerhaltung, Verkaufsraum etc. bei den Händlern, und das trotz dem zu erwartenden, möglicherweise sogar einkalkuliertem, Verlust an jedem eingestampften Indy-Titel.

Wenn man sich nun noch einmal die Frage stellt, kann es denn sein, daß ein Titel von einem Künstler, der etwa 10 Titel veröffentlicht hat, dann zu einem Major wechselt und der nun erscheinende Titel weder sofort, noch jemals verfügbar ist, aber nachweislich gepresst wurde, so stellt sich diese Frage möglicherweise vor einem anderen gänzlich anderen Hintergrund, der in dieser ganzen Diskussion um Urheber-/Verwertungsrecht nicht ausreichend beleuchtet wird.

Wieviele Urheber möchte die Musikindustrie überhaupt? Ist kulturelle Vielfalt vom Aussterben bedroht? Welchen Nutzen haben die Musiker von der Musikindustrie; wobei sich diese Frage weniger für die Major-Titel, sondern für die Menge der vergleichsweise “erfolgreichen” Indies stellt?!

In diesem Zusammenhang ist es ebenfalls interessant sich vor Augen zu führen, welche Rolle dabei die GEMA spielt, denn während Indies durchaus in Clubs/Disco/Radio vergleichsweise häufig gespielt werden, wird der auszuschüttende Anteil der dabei pauschal zu entrichtenden GEMA an den Verkaufszahlen orientiert aufgeschlüsselt an die Künstler verteilt. Dies ist übrigens neben dem reinen Plattenverkauf das zweite Standbein eines Künstlers in der Musik.
Da nun Major-Titel hohe Verkaufszahlen ausmachen, bekommt z.B. ein Herbert Grönemeyer, ohne eigenes dazutun, entsprechend hohe GEMA Tantiemen, während dieser öffentlich in Clubs/Diskotheken möglicherweise so gut wie nie gespielt wurde, die Künstler der tatsächlich vornehmlich gespielten Titel jedoch so gut wie nichts davon.
Das ist natürlich weder die Schuld von einem Herbert Grönemeyer, noch die der GEMA; da es kaum bessere Kriterien zur Aufschlüsselung gibt.
Doch die Verkaufszahlen werden durch die Musikindustrie, die gemeinsam mit den Großhändlern, die auch gemeinsam die Charts “kreativ” festlegen, stark beeinflußt, und spielen auf diese Weise auch hier mittelbar eine entscheidende Rolle im Bezug auf die Überlebensfähigkeit kultureller Vielfalt. Künstler müssen eben, wie wir alle, unabhängig davon ob wenig, oder sehr erfolgreich, von irgendwas leben!

Wenn wir also über Urheberrecht sprechen, sollten wir nicht nur der Polemik der Musikindustrie und ihrer Handlanger in der Politik folgen, sondern auch über die Zukunft der kulturellen Vielfalt und den damit zusammenhängenden Mechanismen vor dem Hintergrund einer rigiden Geschäftspolitik durch die Musikindustrie selbst sprechen.

Wollen wir, die Konsumenten, das eigentlich so in dieser Form einfach hinnehmen? Können wir uns eigentlich noch aussuchen was wir hören und wie lange wird das noch so sein?

Random Posts

• Du bist Terrorist
• MinGW Installation für BlitzMax
• Geheimhaltung der Internetsperrlisten eine Farce
• Verfassungswidrige Bundestagswahl?
• Favorisierte Animationen

Ist Deutschland tatsächlich in Gefahr?

Möglicherweise ja; jedoch nicht zwangsläufig auch wie angenommen durch vermeintliche Terroristen, Islamisten, Homosexuelle, politisch Andersdenkende und was der aktuellen Spitzenpolitik sonst noch so an möglichen Täterprofilen einfallen will.

Related Posts

• Was mir zur Bundestagswahl und den Internetauftritten der Parteien am deutlichsten aufgefallen ist...
• Verfassungswidrige Bundestagswahl?

Quelle: www.DubistTerrorist.de

Related Posts

• Rette deine Freiheit!

1. Beispiel
Hier mal der Beispielcode aus der Hilfedatei von BlitzMax:

LuaRegisterObject demo,"Demo"
 
'source code to our little Lua program...
'
Local source$=..
"function hello()~n"+..
"print( Demo.SayHello( 'Fredborg' ) )~n"+..
"end~n"+..
"function goodbye()~n"+..
"print( Demo.SayHello( 'CandyMan' ) )~n"+..
"end~n"
 
'create a Lua 'class' and set it's source code...
'
Local class:TLuaClass=TLuaClass.Create( source )
 
'Now, create an instance of the class.
'
Local instance:TLuaObject=TLuaObject.Create( class,Null )
 
'We can no invoke methods of the class.
'
instance.Invoke "hello",Null
instance.Invoke "goodbye",Null

2. Beispiel
Um es jedoch ein wenig interessanter zu gestalten, habe ich mal das Ganze ein wenig komplexer gestaltet und als ein weiteres Beispiel hier angefügt. Vorteil dieses Beispiels ist, der LUA-Code liegt als eigene Datei vor und nachdem die Anwendung einmal kompiliert ist, reicht es aus den LUA-Code zu verändern, um ein anderes Verhalten zu steuern, anstatt jedesmal nach kleinen Änderungen jeweils die Anwendung selbst neu erzeugen zu müssen.
In dem folgenden Beispiel wird das Anwendungsfenster von LUA aus erzeugt.

Datei: EmbedLua.bmx

Strict
Framework BRL.System
import BRL.MaxLua
Import "LuaVM.bmx"
Import "sysfunc.c"
 
vm.Invoke "init",Null 'We can no invoke methods within the lua script
vm.Invoke "start",Null ' start the lua application later we can change this to a per frame version
 
While Not KeyHit( Key_Escape ) ' Wait until we want to finish by pressing ESC key
	bmSleep(1) ' wait for one millisekunde
	vm.Invoke "frame",Null ' later we can change this to a per frame version
Wend

Hier der Blitzmax Code um Lua einzubetten:

Datei: Lua.bmx

Import BRL.System
Import BRL.GLMax2D
Import BRL.GLGraphics
Import BRL.Graphics
Import BRL.Stream
 
Rem
	****************************************************************************
	TLuaAppObj Type...
        Hier findet sich alles, was von LUA aus aufgerufen werden kann
	****************************************************************************
EndRem
Type TLuaAppObj
	Global ogl:Int = 1
	Global frame:Int = 0
	Global width:Int = 640
	Global height:Int = 320
	Global depth:Int = 0
	Global hertz:Int = 0
	Global DebugX:Int
	Global DebugY:Int
	Global ApplicationTitle:String
	Global w,h,d,r
 
	Method clrView( )
		If 1=ogl Then
		Else
			Cls '// does not work in GL context
		EndIf
	End Method
 
	Method flipView( )
			Flip
	End Method
 
	Method setView( w:Int=0, h:Int=0, d:Int=0, hz:Int=0, gl:Int=0 )
		'DebugStop
		height = h ;	width = w ;	depth = d ;	hertz = hz	;	ogl = gl ;
		If 1=ogl Then
			Local glbuffer:Int = GRAPHICS_BACKBUFFER|GRAPHICS_DEPTHBUFFER|GRAPHICS_ALPHABUFFER|GRAPHICS_STENCILBUFFER
			SetGraphicsDriver		GLGraphicsDriver(), glbuffer
			GLGraphics width, height, depth, hertz
		Else
			Graphics w, h, d, hz
		EndIf
	End Method
 
	Method delView( )
		EndGraphics
	End Method
 
	Method setApplicationTitle( title:String )
		AppTitle = title
	End Method
 
	Method incFrame:String( a:Int )
		frame = frame + a
		Return frame
	End Method
 
	Method printText( val:String, x:Int, y:Int )
		If 1=ogl Then
			GLDrawText val,x,y ' in OpenGL-Mode only
		Else
			SetOrigin Int(x),Int(y) ' in non OpenGL-Mode only
			SetColor 255,255,255 ' in non OpenGL-Mode only
			DrawText String(val),0,0 ' in non OpenGL-Mode only
		EndIf
	End Method
 
	Method printGlText( val:String, x:Int, y:Int )
		GLDrawText String(val),x,y
	End Method
 
	Method SayHello:String( name:String )
		Return "Hello "+name+"! Peace be with you..."
	End Method
End Type
 
' Das Object in LUA registrieren
Global oTLAO:TLuaAppObj = New TLuaAppObj ; LuaRegisterObject oTLAO, "TLAO" ' register TLuaAppObj
Global oUO:TUdpObj = New TUdpObj ; LuaRegisterObject oUO, "TUO" ' register TUdpObj
 
Local sLuaSource:String
 
' Den LUA code einlesen
Local inLua:TStream = ReadStream( "LuaCode.lua" ) ' open luaVM code
If Not inLua RuntimeError "LuaVM.lua"
While Not Eof( inLua )
	sLuaSource = sLuaSource + ReadLine(inLua) + "~n" ' read luaVM lines
Wend
CloseStream inLua
 
'create a Lua 'class' and set it's source code...
Local class:TLuaClass = TLuaClass.Create( sLuaSource )
 
'Now, create an instance of the class.
Global vm:TLuaObject = TLuaObject.Create( class, Null )

Hier der dazugehörige LUA-Code:
Datei: “LuaCode.lua”

iDebugX=10
iDebugY=10
iWidth=1024
iHeight=768
iPixel= 0
iHz=0
iOpenGL = 1
sTitle = 'Lua Embedding test 0.01 Build 503';
 
function hello()
	a = TLAO.SayHello( 'Fredborg' );
	TLAO.printText( a, 10, 60 );
end
 
function goodbye()
	a = TLAO.SayHello( 'CandyMan' );
	TLAO.printText( a, 10, 80 );
end
 
function IncFrame()
	a = TLAO.incFrame( 1 );
	TLAO.printText( a, 4, (16*a) );
end
 
function init()
	TLAO.setApplicationTitle( sTitle );
	TLAO.setView( iWidth, iHeight, iPixel, iHz, iOpenGL );
end
 
-- once per end
function deinit()
	TLAO.delView();
end
 
-- once per start
function start()
	-- clean frame window
	TLAO.setApplicationTitle('test');
	TLAO.clrView();
	IncFrame();
	IncFrame();
	hello();
	goodbye();
	-- show graphics buffer
	TLAO.flipView();
end
 
-- per frame operations
function frame()
	TLAO.flipView();
end

Datei: sysfunc.c

#ifdef WINDOWS
#include <windows.h>
#include <winbase.h>
#else
#include <sys/wait.h>
#endif
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <io.h>
#include <stdio.h>
#include <stdlib.h>
 
void bmSleep(unsigned long milliseconds)
{
#ifdef WINDOWS
   Sleep(milliseconds); /* windows variante */
#else
   sleep(milliseconds); /* unix variante */
#endif
}

Related Posts

• C/C++ in BlitzMax einbinden
• BlitzMax?
• UDP-Test in BlitzMax
• MinGW Installation für BlitzMax

Im Beispiel ist die maximale Länge von zu empfangenden Nachrichten auf 2048 Bytes begrenzt
( TUdpObj:buf:Byte [2048] )

'udp test
Framework BRL.Basic
Import BRL.Socket
Import BRL.standardio
 
Type TUdpDgram
 Field ip:Int
 Field port:Int
 Field cnt:Int
 Field buf:Byte[2048]
 
 Method SockRead:String(socket:TSocket)
 Local receivedLen, time = MilliSecs()
 Repeat
 receivedLen = 0
 Local read = socket._socket
 If socket.Connected()
 Local size = socket.ReadAvail()
 If size > 2048 Then size = 2048
 If size
 cnt = recvfrom_(socket._socket, buf, size, 0, ip, port)
 If cnt > 0 Then Exit
 EndIf
 EndIf    
 Until (MilliSecs() - time) >= 30000
 If cnt > 0 Then Return String.FromBytes(buf, cnt)
 End Method
 
 Method SockWrite:Int(socket:TSocket, str:String)
 Local buf:Byte Ptr = (str$ + "~r~n").ToCString()
 Local sent = socket.Send(buf, str.length + 2)
 MemFree buf
 Return sent = (str.length + 2)
 End Method
 
 Method SockWriteEx:Int(socket:TSocket, host:String, port:Int, str:String)
 Local buf:Byte Ptr = (str$ + "~r~n").ToCString()
 Local sent = sendto_(socket._socket, buf, str.length + 2, 0, HostIp(host:String), port)
 MemFree buf
 Return sent
 End Method
EndType
 
Local portA:Int = 20000
Local portB:Int = 20001
Local localhost:String = "127.0.0.1"
Local sMsg:String = "Hello sheep!"
Local sockA:TSocket = CreateUDPSocket()
Local sockB:TSocket = CreateUDPSocket()
Local host:String = HostName( SocketLocalIP( sockA ) )
 
If BindSocket(sockA, portA ) = False Then RuntimeError "Couldn't bind to sockA"
If BindSocket(sockB, portB ) = False Then RuntimeError "Couldn't bind to sockB"
 
If ConnectSocket(sockA, HostIp(localhost), portB) = False Then RuntimeError "Couldn't connect to sockA"
If ConnectSocket(sockB, HostIp( localhost ), portA) = False Then RuntimeError "Couldn't connect to sockB"
 
Local x:TUdpDgram  = New TUdpDgram
Print x.SockWrite(sockB, sMsg)
Print SocketReadAvail(sockA)
Local info1:String = x.SockRead(sockA)
Print DottedIP(x.ip) + ":" + String(x.port)+ " - len(" + x.cnt + ") = " + String.FromBytes(x.buf, x.cnt)
 
sockA.Close()
sockB.Close()
 
End

Related Posts

• BlitzMax?
• Lua in BlitzMax einbinden
• C/C++ in BlitzMax einbinden
• MinGW Installation für BlitzMax
• CV - SebastianG

Für dieses Beispiel benötigen wir etwas C-Source, dessen Funktionalität wir in BlitzMax nutzen wollen.
Ich habe an dieser Stelle ein Beispiel mit der Funktion Sleep() ausgewählt, da diese Funktionalität ganz besonders in Anwendungen mit Threads sehr wünschenswert ist, sei es auch nur um mit bmSleep(0) auch mal gezielt ein Scheduling anstoßen zu können.

Wer bereits MinGW installiert hat, braucht mit den unten aufgeführten Dateien lediglich einen Build von der BlitzMax IDE aus auf sysfunc.bmx auszuführen und die C/C++ Dateien werden automatisch miterzeugt, da über die BlitzMax Anweisung Import “sysfunc.c” bereits korrekt eingebunden.

So einfach kann es eben sein!

sysfunc.c

#ifdef WINDOWS
#include <windows.h>
#include <winbase.h>
#else
#include <sys/wait.h>
#endif
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <io.h>
#include <stdio.h>
#include <stdlib.h>
 
void bmSleep(unsigned long milliseconds)
{
#ifdef WINDOWS
   Sleep(milliseconds); /* windows variante */
#else
   sleep(milliseconds); /* unix variante */
#endif
}

sysfunc.bmx

Framework BRL.System
Import "sysfunc.c"
Extern
 Function bmSleep( milliseconds:Int )
End Extern
 
' ab hier können wir nun die Funktion "bmSleep()" aufrufen
bmSleep(5000) ' läßt die Anwendung 5000 Millisekunden "schlafen"
End

Geht das auch einfacher?

Zu kompliziert, um so etwas einfaches, wie Sleep() in BlitzMax verfügbar zu machen? Ja, das ist es in der Tat! Doch das Beispiel dient dazu aufzuzeigen wie C/C++ in BlitzMax eingebunden werden kann, nicht um zu zeigen wie in BlitzMax vorhandene API-Aufrufe möglichst einfach eingebunden werden.
Dennoch möchte ich zum Abschluss noch schnell aufzeigen, wie es kurz und schmerzlos geht, solange es sich lediglich um die Abbildung von API-Aufrufen BlitzMax handelt:

OSAPI.bmx

Framework BRL.System
Extern "OS"
	Function bmSleep( milliseconds:Int ) = "Sleep@4"
EndExtern

Das “… = Sleep@4″ steht dabei für den API-internen Funktionsnamen und der Wert nach dem @ für die Gesamtlänge der zu übergebenden Argumente, in unserem Beispiel für Sleep sind das 4 Bytes.
In dieser verkürzten Form muss ansonsten nichts weiter eingebunden werden und der Aufruf bmSleep() steht sofort zur Verfügung.

Related Posts

• BlitzMax?
• Lua in BlitzMax einbinden
• UDP-Test in BlitzMax
• MinGW Installation für BlitzMax