FreePascal.ru

Извините, подумал, что из едита в системной кодировке передается. Туплю.

Здравствуйте все!
Вот есть такой код:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
s, s1:String;
begin
s:=SysToUTF8(Edit1.Text);
if UTF8Length(s)>2 then s1:=UTF8Copy(s,2,1) else s1:='!';
Label1.Caption&#58 ...

Спасибо за подсказку буду пробовать.

Можно загрузить в TImage и присвоить Assign(Image1.Picture)
Сохраняется черная картинка. а под линем так еще и ошибку выдает.
Видимо imgSmall.Picture.Bitmap в другом формате
Как это понять? Смотрим в код property Bitmap: TBitmap read GetBitmap write SetBitmap;
LoadFromStream
Этой ...

procedure TfrmMain.SpeedButton2Click(Sender: TObject);
var
bmp: TBitmap;
begin
bmp:= TBitmap.Create;
bmp.Assign(imgSmall.Picture.Bitmap);
bmp.PixelFormat:= pf8bit;
bmp.Canvas.Pixels[0,0]:=clWhite;
bmp.SaveToFile('345.bmp ...

Это первое что я попробовал. Тогда сохраняется полностью черная картинка, а глубина все равно 24bit

Вообщем есть такой код
procedure TfrmMain.SpeedButton2Click(Sender: TObject);
var
bmp: TBitmap;
begin
bmp:= TBitmap.Create;
bmp.PixelFormat:= pf8bit;
bmp.Assign(imgSmall.Picture.Bitmap);
bmp.SaveToFile('345.bmp');
bmp.Free;
end;
Только ...

Спасибо за быстрый ответ!
Код компилируется, ошибка исчезла, изображения все равно нет)))) ну теперь хоть знаю куда копать))

Добавлено спустя 13 минут 15 секунд:
Еще раз спасибо большое. Вот если кому пригодиться:
procedure TForm1.ImagePaint (Node:TDOMNode);
var
Source&#58 ...

Laazarus 0.9.30.4 fpc 2.6.0
Имеется xml в котором сохранена картинка в виде /9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAMgAA/+4ADkFkb2JlAGTAAAAAAf подскажите пожалуйста как ее достать и отобразить. Вот какой у меня код, но он возвращает ошибку JPEG Error.(((
procedure TForm1.ImagePaint ...