https://delphisources.ru/forum ru Fri, 19 Jun 2026 12:01:57 GMT vobla 60 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 https://delphisources.ru/forum/showthread.php?t=30984&goto=newpost Mon, 13 Apr 2026 19:12:42 GMT https://delphisources.ru/forum/showthread.php?t=30984 https://delphisources.ru/forum/showthread.php?t=30983&goto=newpost Fri, 10 Apr 2026 01:56:01 GMT

Код

GLActor1.LoadFromFile('model.smd');
GLActor1.Material.Texture.Image.LoadFromFile('texture.jpg');
GLActor1.Material.Texture.Enabled:=true;
Всем привет! так загружается текстура на модель, когда она одна.
а если модель из несколько частей и текстур, то как можно надеть несколько текстур? :confused:

Код

GLActor1.LoadFromFile('model.smd');
GLMaterialLibrary1.AddTextureMaterial('material1', '111.jpg');
GLMaterialLibrary1.AddTextureMaterial('material2', '222.jpg');
GLMaterialLibrary1.AddTextureMaterial('material3', '333.jpg');

]]> https://delphisources.ru/forum/showthread.php?t=30983 https://delphisources.ru/forum/showthread.php?t=30980&goto=newpost Mon, 06 Apr 2026 15:57:40 GMT

Код

ADOQuery2.Edit;
ADOQuery2.FieldByName('vremya').AsString := Edit2.Text;
ADOQuery2.Post;

Админ: Пользуемся тегами при оформлении кода!]]> https://delphisources.ru/forum/showthread.php?t=30980 https://delphisources.ru/forum/showthread.php?t=28706&goto=newpost Tue, 24 Mar 2026 07:35:02 GMT Новая версия SiteAnalyzer 3.3

Представляем вашему вниманию новую версию SiteAnalyzer, в которой добавлена интеграция программы с системами аналитики Яндекс и Google.





Что нового:

• добавлена интеграция программы с системами аналитики Яндекс и Google
  
• добавлена возможность экспорта всех URL и статистики ключевых запросов из вебмастера Яндекс и Google
  
• при старте сканирования сайта на панели «Инфо» добавлено краткое отображение настроек сканирования
  
• исправлена ошибка, связанная с некорректным определением канонических URL для главных страниц сайтов
  
• исправлена некорректная проверка индексации и некорректное указание User-Agent при сканировании произвольного списка URL
  

Подробное описание версии: https://site-analyzer.ru/news/version-3-3-analytics/]]> https://delphisources.ru/forum/showthread.php?t=28706 https://delphisources.ru/forum/showthread.php?t=30978&goto=newpost Wed, 18 Mar 2026 07:58:47 GMT Новая версия ВордЧекер Extension 1.3



Что нового:

• добавлено определение видимости сайта по ключевым запросам относительно текущих позиций
  
• добавлена возможность перепроверки позиций запросов на позиции 100+
  

Подробное описание версии: https://wordchecker.ru/extension/]]> https://delphisources.ru/forum/showthread.php?t=30978 https://delphisources.ru/forum/showthread.php?t=30844&goto=newpost Wed, 11 Mar 2026 21:00:46 GMT Новая версия SiteAnalyzer SEO Tools 3.6



Что нового:

• в модуле Google Search Console добавлен экспорт отчета по сайтам в PDF
  
• для небольших экранов улучшена верстка фильтров «Карта слов / Граф» в модуле Google Search Console
  
• исправлено некорректное определение капчи Яндекса в модуле «ТОП поисковой выдачи»
  

Подробное описание версии: https://site-analyzer.ru/articles/seo-extension-webmaster-google/]]> https://delphisources.ru/forum/showthread.php?t=30844 https://delphisources.ru/forum/showthread.php?t=30978&goto=newpost Tue, 10 Mar 2026 09:33:21 GMT Новая версия ВордЧекер Extension 1.2



Что нового:

• добавлено контекстное меню для списка проектов
  
• верхние кнопки, связанные с запросами, перемещены вниз к самим запросам
  
• при вставке запросов из буфера обмена теперь выдается дополнительное окно с подтверждением
  
• в контекстном меню списка запросов добавлена возможность копирования выбранных фраз в буфер обмена
  
• для экспорта в CSV добавлены колонки с датами проверок позиций
  

Подробное описание версии: https://wordchecker.ru/extension/]]> https://delphisources.ru/forum/showthread.php?t=30978 https://delphisources.ru/forum/showthread.php?t=30978&goto=newpost Sat, 28 Feb 2026 16:29:29 GMT WordChecker Extension - браузерное расширение, предназначенное для проверки позиций сайтов в поисковой системе Яндекс и отображения истории позиций вашего сайта.

Расширение бесплатное (но с некоторыми ограничениями). Пока находится в режиме тестирования.
Проверка производится посредством XML-лимитов (XMLStock, XMLRiver).
Доступно указание регионов Яндекса для проверки, а также массовая проверка позиций сайтов в один клик.



Основные возможности WordChecker Extension

✓ Проверка позиций в поисковой системе Яндекс
✓ Указание регионов сканирования запросов в Яндексе
✓ Массовый сбор статистики по Яндекс Вордстат с учетом региональности
✓ Экспорт и импорт проектов для их переноса между браузерами, либо между ПК
✓ Использование XML-сервисов для сбора сбора поисковой выдачи
✓ Фильтрация данных по ключевым запросам, позициям и Вордстат
✓ Отображение URL посадочных страниц запросов в ТОП-100
✓ Импорт запросов из буфера обмена и CSV
✓ Экспорт запросов в буфер обмена и CSV

Совместимость с браузерами

- Google Chrome
- Mozilla Firefox
- Яндекс Браузер
- Opera
- Microsoft EDGE

Протестировать расширение

- Сайт расширения: https://wordchecker.ru/extension/
- Chrome Web Store: https://chromewebstore.google.com/detail/wordchecker-extension/pimkfjeifkccafnconedfidagmckgbak
- Firefox Add-ons: https://addons.mozilla.org/ru/firefox/addon/wordchecker-extension/

Будем рады услышать ваши комментарии, предложения и пожелания по работе расширения.]]> https://delphisources.ru/forum/showthread.php?t=30978