-
Forum: Multimedia
Delphi
by neolithos,
7. Dez 2005
Kannst du die Bilder noch mal als Rohdaten anhängen?
-
Forum: Multimedia
Delphi
by neolithos,
4. Dez 2005
Naechste Woche eve. wieder, weil da soll mein Computer eventuell wieder funktionierend zurueck kommen. Mal schauen.
-
Forum: Multimedia
Delphi
by neolithos,
21. Nov 2005
Tut mir ehrlich leid. Aber mein Notebook schicke ich heute zurueck zum Hersteller. Leider hab ich kein Delphi und auch nicht den Quellcode. Werde aber weiter auf diesen Thread achten so gut wie ich kann.
Tip:
Vergleich mal die Farbwerte, dann sieht man meist welche Hex Zahl abweicht.
-
Forum: Multimedia
Delphi
by neolithos,
19. Nov 2005
EDIT: Englisch to German
Also ich seh den Fehler nicht, vielleicht liegt er ja im Zusammenhang (Wie war das mit Parties...)
Sorry.
-
Forum: Multimedia
Delphi
by neolithos,
18. Nov 2005
function TForm1.bmpausfirmware(offset,groesse:integer):TBitmap;
VAR i:integer; buf: array of byte; ergebniss:string;
begin
cla := TFileStream.Create(pfad, fmOpenread);
cla.Position:=offset;
SetLength(buf, groesse);
cla.Read(buf, groesse);
ergebniss:='';
for i:=0 to groesse do
ergebniss:=ergebniss + inttostr(buf);
-
Forum: Multimedia
Delphi
by neolithos,
18. Nov 2005
Wie meinen?
Keinem, da ich nur einen Zeiger auf die Bilderdaten benötige, welcher exact ist mir völlig egal. Und const oder var erledigt das wunderbar für. Auf diesem Weg vermeidet man oft Zeiger arithmetik von außen.
-
Forum: Multimedia
Delphi
by neolithos,
18. Nov 2005
Fast richtig:
procedure TForm1.bildtauschen(offset : Integer);
VAR length : integer;
p : Pointer;
begin
length := Bmp24ToBmp18(image2.picture.bitmap, p);
cla := TFileStream.Create(pfad, fmOpenWrite or fmShareExclusive);
cla.Position := offset;
cla.write(p^, length);
-
Forum: Multimedia
Delphi
by neolithos,
18. Nov 2005
Bitte ergänzen bzw. änderen.
//
// Wandelt das 18 Bit Bild in ein 24 Bit Bild um.
//
// data - Daten des 18 bit Bildes
// iWidth - Breite des Bildes
// iHeight - Höhe des Bildes
// Result - Ein neu erzeugtes TBitmap-Object mit den 24 Bit Bild
//
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
Gut das da der Smilie ist! Aber hätte man das auch irgentwo auch finden können, hab bald ne 3/4h mit suchen verbracht.
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
Ja, sicherlich da ich in der Funktion mittels GetMem den speicher reserviere.
Du meinst sicherlich das Inc(PByte(pCur), 3). Was bedeutet das ich den Zeiger von pCur auf das nächste Pixelchen setze.
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
So, das war aber jetzt wirklich der letzte Akt für heute.
Enthalten sind zwei Funktionen für das Konvertieren.
Vergiss den Autor nicht ;)
Versuch mal im Internet etwas über Bitmaps und deren Aufbau in Erfahrung zu bringen. Oder stell direkte Fragen.
Gute Nacht!
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
Vielleicht bin ich morgen wieder wach (in ca 9h) genug um mal ein paar Sätze zu schreiben. Was du da alles aufgezählt hast, hat nichts direkt mit dem Bitmap zu tun.
Im Prinzip sind Bitmaps die simpelste Darstellung eines Bildes. Sie sind nur ein 2D-Array mit Pixeln.
Und im Prinzip interessiert dich eigentlich primär nur die Funktion Bitmap18ToHandle.
Ich geb zu um die Geschichte...
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
Wenn du verstanden hast wie ich die eine Einrichtung erstellt habe. Kommst du auch auf den Weg für die andere.
Falls es Verständnis-Probleme gibt, stell am besten eine direkte Frage. Bitte nix allgemeines!
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
Nach Umschreiben des Testprogrammes und mehrstündiger Analyse :coder2: der Hex-Darstellung :freak: im Vergleich zum Original bin ich zum Entschluss gekommen, dass diese Codierung vorliegt :dancer: :
32 5432 7654 7654 3276
bb__ ____ gggg bbbb rrrr rrgg
Die Unterstriche stellen nullen dar.
Angehängt ist der Quick&Dirty Algorithmus.
Muss unbedingt Optimiert werden.
-
Forum: Multimedia
Delphi
by neolithos,
17. Nov 2005
schon mal versucht die Pixel und 2 bit nach links zu verschieben. Und das Bild verkehrt herum zu lesen?
Die Scheinen es genauso zu machen, wie es zu den alten Dos mit Bildern gearbeitet wurde. Damals gab es auch nur 6 Bit pro Farbe.
EDIT:
Das ist es erstmal nicht. Für Weis wird nur $FFFF, und irgentwie hab ich noch nicht raus für was das 3 byte da ist. Wahrscheinlich wird byte 1 und 2 und...
