https://delphisources.ru/forum ru Mon, 27 Jul 2026 16:55:12 GMT vobla 60 https://delphisources.ru/forum/showthread.php?t=31000&goto=newpost Wed, 22 Jul 2026 14:58:23 GMT https://delphisources.ru/forum/showthread.php?t=31000 https://delphisources.ru/forum/showthread.php?t=31000&goto=newpost Wed, 22 Jul 2026 13:29:28 GMT

Сообщение от Admin:

Ну надо же, оказывается кто-то еще программирует на Дельфи )
Спасибо за поздравление!

Ну как без Delphi.. Я много чего в ней сделал для удобства к своей основной работе.. Ну и синтаксис мне нравится.. ))]]> https://delphisources.ru/forum/showthread.php?t=31000 https://delphisources.ru/forum/showthread.php?t=31000&goto=newpost Wed, 22 Jul 2026 13:25:03 GMT

Сообщение от ined:

Случайно зашёл и увидел что ДР..
Всех благ и здоровья! :)

Ну надо же, оказывается кто-то еще программирует на Дельфи )
Спасибо за поздравление!]]> https://delphisources.ru/forum/showthread.php?t=31000 https://delphisources.ru/forum/showthread.php?t=31000&goto=newpost Wed, 22 Jul 2026 13:21:31 GMT Всех благ и здоровья! :)]]> https://delphisources.ru/forum/showthread.php?t=31000 https://delphisources.ru/forum/showthread.php?t=30998&goto=newpost Mon, 20 Jul 2026 19:12:20 GMT Новая версия ВордЧекер 1.2

Добавлена проверка частотностей запросов по Google Ads, добавлен интерактивный блок со статистикой запросов проекта, добавлена таблица видимости конкурентов.









Что нового:

• добавлена возможность получения статистики частотностей запросов по Google Ads
  
• добавлен интерактивный блок со статистикой запросов проекта
  
• добавлено отображение истории позиций отдельных запросов на графике
  
• добавлена таблица видимости конкурентов за последний апдейт
  
• добавлена возможность поиска по списку проектов
  
• в настройки проекта и в список проектов добавлен индикатор о проверках по расписанию
  
• незначительные изменения по интерфейсу и юзабилити
  

Подробное описание версии: https://wordchecker.ru/articles/version-1-2/]]> https://delphisources.ru/forum/showthread.php?t=30998 https://delphisources.ru/forum/showthread.php?t=30986&goto=newpost Tue, 14 Jul 2026 10:36:39 GMT

Mega Comic Con 2026 - ежегодный конкурс инди комиксов журнала МегаИнформатик

конкурс авторских комиксов журнала megainformatic.ru

начинается этап угадывания темы конкурса. Все желающие участвовать приглашаются.

Подробнее по ссылке -

https://megainformatic.ru/mega-comic-con-2026/]]> https://delphisources.ru/forum/showthread.php?t=30986 https://delphisources.ru/forum/showthread.php?t=30998&goto=newpost Mon, 29 Jun 2026 21:23:43 GMT ВордЧекер - альтернативный веб-сервис для мониторинга позиций сайта в Яндексе и Google посредством недорогих XML-лимитов.

Сервис ВордЧекер был создан по мотивам десктопной программы PositionMeter, поэтому многим его интерфейс покажется знакомым.
Пока сервис находится в режиме тестирования.
Проверка производится посредством XML-лимитов (XMLStock, XMLRiver) либо средствами системы.
Доступно указание регионов Яндекса и Google для проверки, а также массовая проверка позиций сайтов в один клик и по расписанию.



Основные возможности ВордЧекер

• Проверка позиций в поисковых системах Яндекс и Google
  
• Указание регионов сканирования запросов по Яндекс и Google
  
• Сбор и отображение позиций сайтов-конкурентов
  
• Кластеризация запросов методами Hard и Soft
  
• Сбор статистики по Яндекс Вордстат с учетом региональности
  
• Определение видимости сайта (доля показов сайта в поисковой выдаче)
  
• Фильтрация данных по ключевым запросам, позициям и Вордстат
  
• Отображение посадочных страниц
  
• Возможность проверки позиций по расписанию
  
• Использование XML-сервисов для проверки позиций сайта
  
• Импорт запросов из буфера обмена, TXT, Топвизор и PositionMeter
  
• Экспорт запросов в форматы Excel и CSV
  

Протестировать ВордЧекер https://wordchecker.ru/

Будем рады услышать ваши комментарии, предложения и пожелания по работе сервиса.]]> https://delphisources.ru/forum/showthread.php?t=30998 https://delphisources.ru/forum/showthread.php?t=30997&goto=newpost Mon, 29 Jun 2026 03:39:11 GMT

Код

url:='https://services.sc.kamaz.tech';

data:='grant_type=password&username='+(user)+

'&password='+pass+'&scope=&client_id='+IDproject+'&client_secret=';

http.Open('POST',url+'/auth/token');
http.send(data);

выходит ошибка поддержка безопасных каналов,а в Winwods 10 все нормально. в свойстве IE установил поддержку TSL 1.2 и SSL 2]]> https://delphisources.ru/forum/showthread.php?t=30997 https://delphisources.ru/forum/showthread.php?t=30996&goto=newpost Mon, 15 Jun 2026 13:44:27 GMT

Код

function GetGUIDOleObject(ole:OleVariant): WideString;
var
TA: PTypeAttr;
IIDS:WideString;
Dispatch: IDispatch;
MyGuid:TGUID;
// IDD:OleVariant;
Guids:System.TGuid;
ti: ITypeInfo;
pd: PVarData;
unk: IUnknown;
MyInterface: IInterface;
begin
//MyGiud
try
pd := PVarData(@ole);
dispatch:=IDispatch.Create;
// COM/Automation объект (IDispatch или IUnknown)
if (pd^.VType = varDispatch) or (pd^.VType = varUnknown) then
begin
// Попробуем получить IDispatch
try
// VarAsType(V,varVariant);
dispatch :=IDispatch( pd.VDispatch);//VarAsType(V,varVariant));
except
dispatch := nil;
end;
end;

if Assigned(dispatch) then
begin
try
unk := IUnknown(@ole);
MyInterface:= IInterface(PVarData(unk).VUnknown ) ;
if Succeeded( Dispatch.GetTypeInfo (0, {LOCALE_USER_DEFAULT{}GetUserDefaultLCID, ti)) then
begin
//ti.Release;
if Succeeded(TI.GetTypeAttr(TA)) then
try

result:=(System.TGuid( TA^.guid).ToString) ; // GUID найден
result:= StringReplace(result, '{', '',
[rfReplaceAll, rfIgnoreCase]);
result:= StringReplace(result, '}', '',
[rfReplaceAll, rfIgnoreCase]);

finally
TI.ReleaseTypeAttr(TA);

end;

end;
except
result:=' None GUID';
end;

end;
except;
result:='Error'
end;
end;
]]> https://delphisources.ru/forum/showthread.php?t=30996 https://delphisources.ru/forum/showthread.php?t=30996&goto=newpost Sun, 14 Jun 2026 17:23:04 GMT [code]
unit OleObject;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ActiveX,ComObj,Ole2,OleAuto, Vcl.StdCtrls,
Vcl.OleCtrls,OleConst,OleCtl,
TypInfo,

{$IFDEF INTF_TYPEINFO_CACHE}
System.Generics.Collections,
{$ENDIF}Rtti;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
ComboBox1: TComboBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function VariantObjectClassName(const V: OleVariant): string;
function GetImplementingObject(const I: IInterface): TObject;
function GetInterfaceEntry(const I: IInterface): PInterfaceEntry;
function GetPIMTOffset(const I: IInterface): integer;
implementation

{$R *.dfm}


function GetPIMTOffset(const I: IInterface): integer;
// PIMT = Pointer to Interface Method Table
const
AddByte = $04244483; // opcode for ADD DWORD PTR [ESP+4], Shortint
AddLong = $04244481; // opcode for ADD DWORD PTR [ESP+4], Longint
type
PAdjustSelfThunk = ^TAdjustSelfThunk;
TAdjustSelfThunk = packed record
case AddInstruction: longint of
AddByte : (AdjustmentByte: shortint);
AddLong : (AdjustmentLong: longint);
end;
PInterfaceMT = ^TInterfaceMT;
TInterfaceMT = packed record
QueryInterfaceThunk: PAdjustSelfThunk;
end;
TInterfaceRef = ^PInterfaceMT;
var
QueryInterfaceThunk: PAdjustSelfThunk;
begin
Result := -1;
if Assigned(Pointer(I)) then
try
QueryInterfaceThunk := TInterfaceRef(I)^.QueryInterfaceThunk;
case QueryInterfaceThunk.AddInstruction of
AddByte: Result := -QueryInterfaceThunk.AdjustmentByte;
AddLong: Result := -QueryInterfaceThunk.]]> https://delphisources.ru/forum/showthread.php?t=30996 https://delphisources.ru/forum/showthread.php?t=30996&goto=newpost Fri, 12 Jun 2026 11:52:33 GMT function VariantObjectClassName(const V: OleVariant): string;
var
pd: PVarData;
ti: ITypeInfo;
disp: IDispatch;
basicType : Integer;
sDoc, sHelpFile: PBStr;
helpCtx: PLongInt;
typeString : string;
Presult:PBStr;
begin

pd := PVarData(@V);

basicType := pd^.VType and VarTypeMask;

// ????????? ?????? ??? ???????????? ????
case basicType of
varEmpty : typeString := 'varEmpty';
varNull : typeString := 'varNull';
varSmallInt : typeString := 'varSmallInt';
varInteger : typeString := 'varInteger';
varSingle : typeString := 'varSingle';
varDouble : typeString := 'varDouble';
varCurrency : typeString := 'varCurrency';
varDate : typeString := 'varDate';
varOleStr : typeString := 'varOleStr';
varDispatch : typeString := 'varDispatch';
varError : typeString := 'varError';
varBoolean : typeString := 'varBoolean';
varVariant : typeString := 'varVariant';
varUnknown : typeString := 'varUnknown';
varByte : typeString := 'varByte';
varWord : typeString := 'varWord';
varLongWord : typeString := 'varLongWord';
varInt64 : typeString := 'varInt64';
varStrArg : typeString := 'varStrArg';
varString : typeString := 'varString';
varAny : typeString := 'varAny';
varTypeMask : typeString := 'varTypeMask';
varObject : typeString := 'varObject';
end;

Result :={VarToStr(pd^.VType)+'|'+} typeString;// VarToStr(pd^.VType);
try
// Delphi-объект, упакованный как varObject
if (pd^.VType = varObject) and (pd^.VPointer <> nil) then
begin
Result := TObject(pd^.VPointer).ClassName;
//Exit;
end;
except
Result := 'IDispatch none typeinfo';

end;
disp:=IDispatch.Create;




// COM/Automation объект (IDispatch или IUnknown)
if (pd^.VType = varDispatch) or (pd^.VType = varUnknown) then
begin
// Попробуем получить IDispatch
try
// VarAsType(]]> https://delphisources.ru/forum/showthread.php?t=30996 https://delphisources.ru/forum/showthread.php?t=30996&goto=newpost Fri, 12 Jun 2026 03:47:31 GMT var OleObject : OleVariant;
OleObject.ClassName - такого метода нету.

Код

uses
SysUtils, Variants, ActiveX, Windows;

function VariantObjectClassName(const V: OleVariant): string;
var
pd: PVarData;
ti: ITypeInfo;
disp: IDispatch;
sDoc, sHelpFile: WideString;
helpCtx: Integer;
begin
Result := '';
pd := PVarData(@V);
// Delphi-объект, упакованный как varObject
if (pd^.VType = varObject) and (pd^.VPointer <> nil) then
begin
Result := TObject(pd^.VPointer).ClassName;
Exit;
end;

// COM/Automation объект (IDispatch или IUnknown)
if (pd^.VType = varDispatch) or (pd^.VType = varUnknown) then
begin
// Попробуем получить IDispatch
try
disp := IDispatch(V);
except
disp := nil;
end;


if Assigned(disp) then
begin
// Получаем typeinfo (локаль можно заменить на LOCALE_USER_DEFAULT)
if Succeeded(disp.GetTypeInfo(0, GetUserDefaultLCID, ti)) and Assigned(ti) then
begin
// MEMBERID_NIL (-1) — имя типа
ti.GetDocumentation(MEMBERID_NIL, Result, sDoc, helpCtx, sHelpFile);
end
else
Result := 'IDispatch без typeinfo';
end;

end;
end;

Админ: Пользуемся тегами при оформлении кода!
Это посоветовал ИИ. Но не работает]]> https://delphisources.ru/forum/showthread.php?t=30996 https://delphisources.ru/forum/showthread.php?t=30986&goto=newpost Thu, 11 Jun 2026 08:55:56 GMT


https://vkvideo.ru/video-233739647_456239024

#586 Нейросеть megainformatic учится играть в игры



https://vkvideo.ru/video-233739647_456239025

megainformatic.ru ежемесячный журнал комиксов и инди-игр #7 (31) июль 2026



В номере: интервью с нейросетью megainformatic, комиксы номера Полный песец. Анонс игры MEGA GAME.
Фантастический роман: Герои мышки и программирования #4. Нулевой километр. Поиск и решение. Послание
неизвестного.

Номер доступен в виде free/полной версий 17/26 страниц в виде pdf, а также
из приложений m_mag_single, megainformatic messenger для Windows/Linux/Android и из браузера html5.

https://megainformatic.ru/megainformatic-ru-jul-2026-vol-7/

Все номера и выпуски, книги - поддержи !
https://megainformatic.ru/after_buy.php?pid=26]]> https://delphisources.ru/forum/showthread.php?t=30986 https://delphisources.ru/forum/showthread.php?t=30844&goto=newpost Thu, 04 Jun 2026 19:49:37 GMT Новая версия SiteAnalyzer SEO Tools 3.6.196



Что нового:

• восстановлена возможность переключения расширения в режим боковой панели
  
• исправлен баг, связанный с отображением кириллических доменов в модуле Яндекс Вебмастер и Google Search Console
  
• добавлена поддержка элемента
[CDATA] при парсинге Sitemap.xml (вкладки Кластеризация, Визуализация, Расчет PageRank)

• добавлен учет комментариев (символ решетка, #) в правилах файла Robots.txt
  
• после продолжительной паузы актуализирована версия для браузера Firefox
  
• исправлена работа модуля «ТОП поисковой выдачи»
  

Подробное описание версии: https://site-analyzer.ru/soft/seo-extension/]]> https://delphisources.ru/forum/showthread.php?t=30844 https://delphisources.ru/forum/showthread.php?t=30868&goto=newpost Wed, 03 Jun 2026 08:32:09 GMT Новая версия Яндекс Вордстат Extension 4.2



Что нового:

• для поисковых запросов добавлена возможность проверки посадочных URL
  
• добавлена возможность изменения очередности групп на одном уровне вложенности
  
• добавлена возможность перемещения запросов и групп между проектами
  
• исправлено дублирование запросов при перемещении запросов по папкам
  
• исправлено некорректное отображение групп запросов в меню вложенностью больше 1-го уровня
  
• при экспорте данных в буфер обмена и CSV добавлен учет вложенности групп
  

Подробное описание версии: https://wordclusterer.ru/version-history/]]> https://delphisources.ru/forum/showthread.php?t=30868 https://delphisources.ru/forum/showthread.php?t=28706&goto=newpost Tue, 26 May 2026 08:25:17 GMT Новая версия SiteAnalyzer 3.4

Представляем вашему вниманию новую версию SiteAnalyzer, в которой доработана система аналитики, оптимизирована проверка индексации URL на вкладке «Индексация», добавлен учет...



Что нового:

• блоки с настройками дат Яндекс Метрики и Google Search Console из настроек программы перенесены на раздел аналитики
  
• для удобства при экспорте данных в имя файла добавлена подстановка домена активного проекта
  
• в файле экспорта Яндекс Вебмастер убран столбец с идентификаторами поисковых запросов
  
• для аналитики Google Search Console добавлен перевод колонок для окон с запросами и URL
  
• на трех вкладках аналитики добавлено открытие выделенных URL в браузере по двойному клику мыши
  
• в логе на панели Инфо добавлено указание вкладки аналитики, на которой произошла ошибка (ЯВМ, Метрика, GSC)
  
• оптимизирована проверка индексации URL на вкладке «Индексация», а также добавлена многопоточность
  
• добавлен учет ограничений правил исключения URL при пересканировании выбранных страниц
  
• на «панель быстрого доступа» добавлен график скорости загрузки страниц
  
• в окнах с поисковыми запросами убраны графики Google Trends
  
• упразднено отображение и учет якорных (#anchor) ссылок
  

Подробное описание версии: https://site-analyzer.ru/version-history/]]> https://delphisources.ru/forum/showthread.php?t=28706 https://delphisources.ru/forum/showthread.php?t=30995&goto=newpost Mon, 11 May 2026 10:53:46 GMT
Хочу представить вам Delphi компоненты для быстрого прямого доступа к ORACLE серверу базы данных.

Компоненты используют прямой доступ к серверу через OCI (Oracle Call Interface) не используя никаких универсальных прослоек, поэтому работают очень быстро.

Полностью совместимы со стандартными Delphi компонентами для доступа и отображения данных такими как TDataSet, TDataSource, TDBGrid.
Поддерживаются все основные типы Delphi полей включая оракловские BLOB and CLOB. Есть возможность выполнять хранимые процедуры и так же части PL/SQL кода без создания хранимой процедуры.
Совместимы c Delphi версиями начиная с легендарной Delphi 7 по Delphi 13.

Ключевой функционал:

- Прямой доступ к Oracle БД. Работают без BDE.
- Работа с серверами от Oracle 8i до Oracle 23с.
- Компонент TOraSQL - мощный наследник TDataSet. Максимально совместим со стандартными компонентами доступа к базам данных. Реализует все возможности TDataSet и добавляет много новых.
- Поддерживаются чтение и сохранение данных в национальных кодировках включая названия таблиц и полей в таблицах на национальных языках.
- Продвинутые Delphi design-time property editors которые сильно облегчают настройку компонентов.
- Полная поддержка оракловских полей BLOB и CLOB.
- Возможность выполнять хранимые процедуры.
- Возможность выполнять куски PL/SQL кода прямо из клиентского приложения.
- Настройка количества записей получаемых за одно обращение к базе (намного повышает быстродействие при работе с большими таблицами).
- Компилируются как в 32bit так и в 64bit.
- Мощные и быстрые таблицы в памяти.
TMemoryDataSet - TDataSet совместимая компонента. Может показывать данные в DBGridе.
TAMemoryDataSet - Таблица в памяти не совместимая с TDataSet. Удобна если нужно хранить таблицоподобные структуры в памяти.
- Мощные компоненты для создания и работы с динамическими массивами для всех типов данных (поиск данных реализован на ассемблере).
- Поддержка версий Delphi с 7 по 13.]]> https://delphisources.ru/forum/showthread.php?t=30995 https://delphisources.ru/forum/showthread.php?t=30988&goto=newpost Mon, 27 Apr 2026 20:37:52 GMT Ra kuColorDialog – программа для выбора цвета, захвата цвета пикселя с экрана и сохранения палитр, имеет функцию экранной лупы и линейки, масштаб которых можно настраивать.

Ra – это отдельная программа.

kuColorDialog – это компонент для Delphi, продвинутый аналог примитивного TColorDialog, с важнейшей особенностью в виде динамического применения выбранного цвета.

Сайт программы: https://kuzduk.ru/ra/

]]> https://delphisources.ru/forum/showthread.php?t=30988 https://delphisources.ru/forum/showthread.php?t=30987&goto=newpost Sun, 26 Apr 2026 23:07:35 GMT KUSS

Программа, чтобы делать скриншоты (фото экрана): всего экрана, выбранной части, активного окна. С открытым исходным кодом на Delphi. Для Windows.

Первоисточник, попавшийся мне, был взят из статьи "Создание скриншотера на Delphi" с сайта delphiexpert.ru: https://delphiexpert.ru/sozdanie-skrinshotera-na-delphi.html

Григорий Горкун дополнил программу: сохранение в файлы разных форматов + звук при фотографировании + работа с командной строкой с параметрами + исправил множество разных ошибок в первоисточнике.

Подробности и качнуть можно туть: https://kuzduk.ru/kuss/]]> https://delphisources.ru/forum/showthread.php?t=30987 https://delphisources.ru/forum/showthread.php?t=30986&goto=newpost Wed, 22 Apr 2026 06:21:54 GMT

Мессенджер и журнал Нового поколения. По ссылке ниже демонстрационные видео, ссылки для запуска из браузера html5 или веб версии или скачивания Windows/Linux/Android приложения.

Мессенджер позволяет вам без ограничений общаться, а также открывает доступ ко всем журналам и книгам Мегаинформатик. Сделай шаг в будущее вместе со мной. Я независимый инди-разработчик, запустил свою поисковую систему, нейросеть, журнал Мегаинформатик (издаю с 2025 года), а также еще целый ряд интересных проектов - игры, комиксы, интервью в журнале, экспертные статьи. Занимаюсь созданием этих проектов в одиночку. Поэтому ваша помощь и поддержка будут очень кстати! Спасибо за внимание! Поддержите меня.

https://megainformatic.ru/megainformatic-messenger/]]> https://delphisources.ru/forum/showthread.php?t=30986