Deutsches Lazarusforum

danke für den hinweis habe es hinbekommen

hi

ich speichere Daten aus einem stringgrid in einer xml datei

aufbau xml

<root>
<datensatz id="1">
<titel>hallo</titel>
<orginal>du</orginal>
<inhalt></inhalt>
<inhalt2>1</inhalt2>
</datensatz>
<datensatz id="2">
<titel>hallo</titel>
<orginal>du</orginal>
<inhalt></inhalt>
<inhalt2 ...

hi

habe es jetzt hinbekommen

ich lese das charset der seite aus und wandele es dan mittels unit synachar von synapse nach utf8 um.

hi

leider klappt es noch nicht ganz so wie ich es möchte

jetzt bekomme ich die zeichen öäü als ? angezeigt unter win und linux

im quelltext steht das ü mal als ü und mal als ü z.b.

var

sl : tstringlist;
begin
sl := tstringlist.Create;
try
httpgettext(edit1.Text,sl) ;
sl.text ...

servus

ich möchte den quelltext einer html seite in einem memo anzeigen lassen

procedure TForm1.Button2Click(Sender: TObject);
var

sl : tstringlist;
begin
sl := tstringlist.Create;
try
httpgettext(edit1.Text,sl) ;
memo1.Lines.Add(ansitoutf8(sl.text) );
finally
sl.Free;
end;
end ...

das war es

danke für den hinweis

Hi

im Anhang mal das Project. Code = noch nichts

Lazarus Version 1.0.14 unter Win7 64bit

Hi

Ich habe auf meiner Form 3 Panels und 2 Splitter ausrichtung sieht wie folg aus

Panel1 Align=left Splitter1 Align=left
Panel2 Align=client Splitter2 Align=right
Panel3 Align=right

soweit sogut

Wenn ich nun Splitter2 bewege dann verlängert sich das ganze fenster/form nach rechts raus
Ich ...

super vielen dank sowas habe ich gesucht

hi ich suche eine komponente die änlich der groupbox ist, die man ein und ausklappen kann siehe bild.

gibt es da was????

Christian hat geschrieben:Du musst noch deine jpegś angeben

haha

sicher habe ich da meine eigenen jpg dateien angegeben.

danke

aber irgendwie tut sich da bei mir nichts?? ausser das die cpu auslastung voll ausgelastet ist.

Servus

wie aus der überschirft schon hervorgeht geht es um die jpeg kompression.

ich möchte vorhandene jpg dateien öffnen und dann kompriemiert wieder abspeichern.

kann mir wer mal bitte einen tipp geben???

thx

thx das klappt

und wie kann ich den palettenindex der einzelnen pixel auslesen??

mit
bekomme ich den tcolorwert

ok hab mir mal opbitmap besorgt und folgenden code ausgeführt

var
bit: topbitmap;
bx, by, i: integer;
begin
bit := topbitmap.Create;
bit.Height := 100;
bit.Width := 100;
bit.PixelFormat := pf8bit;
i := 0;

for bx := 0 to bit.Height - 1 do
begin
for by := 0 to bit.Width - 1 do
begin ...