Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
13. Dez 2008
Nochmal verfeinert: Bei beiden Units habe ich nun BASE64-Strings aktiviert.
Also BitmapToBaseString/JPEGToBaseString liefern nun die kleinsten Daten.
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
13. Dez 2008
Ich bin so weit durch damit:
Angelegt zwei Units, mit denen sich Grafiken in Strings verwandeln lassen.
LDer.
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
function BitmapToString(b: TBitmap): String;
var ms: TMemoryStream;
a: Int64;
i:integer;
buffer: Array of Byte;
begin
result := '';
ms := TMemoryStream.Create;
try
b.SaveToStream(ms);
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
Verdampft! :x
Ich krieg' noch zu viel bei dem Mist :D
Ich versuch es jetz wieder - über den Stream - in nen String zu packen - komm aber nicht gut dabei weg. Hat wer nen akuten Einfall?
(->Problem: Inhalt eines TMemoryStream in einen string laden)
Ich habe es auch schon mit TStringStream versucht - Geht nicht!
(->mache neues Thema auf hier!)
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
:wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:
Ich hätte nuuuur die Stream.Position auf 0 setzen müssen -.-
es geht!
Ich krieg den Rest nun auch alleine hin!
Danke nochmal!
Euer eLDer!
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
procedure BitmapGurke(Input:TBitmap);
var
P:TMemoryStream;
test:integer;
begin
P:=TMemoryStream.Create;
Input.SaveToStream(P);
test:=0;
P.Read(test, 4);
ShowMessage(inttostr(test));
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
Anders: Wie komme ich an die ersten x bytes in einem Stream?
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
schon gut...
kenne mich mit streams jetz aber net sooo doll aus, muss selten damit arbeiten - hat da jemand ne idee aus nem stream (hab nen TMemoryStream genommen) die Daten als string auszulesen? Sorry, habe gerade leider nich die Ruhe mir das komplett selbst zu erarbeiten -.-
LDer
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
Erst so rum, dann anders rum.
Also wenn irgendwer ne vernünftige Idee hat, nen Bitmap - als Variable im Speicher - in einen regulären String umzuwandeln(/verschlüsseln/wie auch immer) - dann kann ich diese Methode ja auch "umkrempeln".
Mir geht es wie gesagt darum, einen Screenshot zu machen, den in ein TBitmap zu laden, in einen String umzuwandeln, zu versenden und wieder ein TBitmap draus...
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
Bitte,
Meine Frage bezog sich auf das Bitmap!
Dass ich einen STRING als array of Char sehen kann, ist mir wohl bekannt ;)
Aber wie lese ich ein BITMAP binär aus?
Und sagt bitte setzt mir nicht solche Gurken vor wie String := String + Chr(Bitmap)...
Der LDer
Forum: Sonstige Fragen zu Delphi
Delphi
by LDericher,
12. Dez 2008
Sorry wenn ich so blöd frage, aber wie komme ich an die Binärdaten? Les ich da irgendwie den Speicher mithilfe des Zeigers aus? Oder steh ich grad mal auf'm Sclauch?
Also es ist nicht auf der Festplatte gespeichert, nur im Arbeitsspeicher (als Zeigervariable vom Typ TBitmap)
Der LDer