Может кто стыкался? Программа глючит, если в файле есть пустые строки между строк. Как удалить пустые строки из TStringList? Метод Delete у меня вызывает ошибку, выход за границы списка.

(читать всё…)

Я строю простую диаграмму (bar) беря данные из таблицы Access через ado.
ulik (стринговое поле) и medkg (integer поле). Как мы знаем, в редакторе dbchar брать можно только поля с типом integer. Как сделать, чтобы подписи столбцов брались поля ulik (стринговые записи). Ведь в редакторе DBChar поле ulik не отображается.

(читать всё…)

Хочу написать программу, что бы пинговать компьютер и в окне видеть надпись » компьютер в сети».

(читать всё…)

Даже в Delphi 10.1 стандартный плеер поддерживает видео только HD качества.
Мне же нужно воспроизводить FullHD видео.
В связи с этим стандартный компонент не подходит!
Можете посоветовать видеоплеер с api через который я смогу из Делфи запускать нужные мне видосы…

(читать всё…)

Необходимо прочитать файл в память, заменить один байт в нем и сохранить на диск.
Например, имея файл из 4-х байт

Нужно например заменить второй байт на FF
Чтоб получилось так:

(читать всё…)

Ставлю компонент Image, туда запихиваю файл gif, но когда запускаю проект, GIF отображается как картинка, а не анимация, почему так происходит, и встречался ли кто нибудь с подобным???

(читать всё…)

Необходимо через GDI+ в делфи 7 получить из файла формата jpg файл формата bmp. Скачал архив с GDI+, распаковал и положил 6 файлов (DirectDraw.dcu, GDIPAPI.dcu, GDIPUTIL.dcu, GDIPOBJ.dcu, DirectX, Jedi) в каталог Lib, где стоит делфи. Потом когда я получил ошибку — скопировал эти же файлы и в проект (на всякий случай), но не помогло. Пишу код:

uses
 Windows, ... jpeg, pngimage, GifImage,
  GDIPAPI, GDIPOBJ, GDIPUTIL;

procedure TForm1.Button3Click(Sender: TObject);
var
  encoderClsid: TGUID;
  Image: TGPImage;
begin
Edit1.Text:=StringReplace(Edit1.Text,ExtractFileExt(Edit1.Text),'',[]);
 if ExtractFileExt(Edit1.Text)='.jpg' then
  Image := TGPImage.Create(Edit1.Text+'.jpg');
  GetEncoderClsid('image/bmp', encoderClsid);
  image.Save(Edit1.Text+'.bmp', encoderClsid, nil);
  image.Free;

  Image2.Picture.LoadFromFile(Edit1.Text+'.bmp');
end;

При запуске сначала появляется такое предупреждение
[Предупреждение] Unit1.pas(98): Variable ‘Image’ might not have been initialized

А затем вылазеет ошибка вот в таком окне:

—————————
Debugger Exception Notification
—————————
Проект Capcha.exe вызвал исключение класса EAccessViolation с сообщением ‘Access violation at address 7C80980F in module

‘kernel32.dll’. Write of address CED6E8D3′. Процесс остановлен. Используйте Шаг или Запуск для продолжения.
—————————
OK Help
—————————

Жму ОК, выскакивает окно:

Исходник не найден GDIPOBJ.pas
Путь к файлу: GDIPOBJ.pas

Да, действительно файла GDIPOBJ.pas нет ни в папке с проектом, ни в папке Lib где стоит делфи. В то время как GDIPOBJ.dcu есть в обоих папках. Сам не знаю что думать: то ли делфи не создал GDIPOBJ.pas, то ли этот файл должен был войти в состав скачиваемого GDI+.

(читать всё…)

Из спортивного интереса решил написать алгоритм для прецизионного поворота растрового изображения на произвольный угол относительно произвольной точки поворота. Но боюсь, что изобретаю велосипед…

Много видел сообщений о то, что такой алгоритм будет очень медленный и громоздкий, но самого алгоритма никто показать не может. Может здесь кто-нибудь встречал такой алгоритм?

(читать всё…)

Извеняюсь если вопрос уже задавался но в гугле 3 страницы просмотрел там либо таймер либо MouseMove собственно вопрос в теме тоесть цель необходимо получить координаты курсора мыши относительно формы не используя таймера
А MouseMove не подходит так как у меня форма в основном на ней динамические объекты а цель получения координат мыши необходимо для отслежки в каких координатах нужно расположить динамические лейблы узнать этого нельзя так как имаджи на которых нужно разместить лэйблы размещаются динамически тоесть програмным путем темболее через массив
Вот скрин

Пока нумерация сделана через фотошоп но мне охото сделать програмно темболее она будет тогда качественее и даст пару возможностей.

(читать всё…)

Помогите разобраться со считыванием двумерного массива из потока данных. Построчно массив получается считать, а целиком нет. Что я делаю не так?

(читать всё…)