, 13 2020 . 14:32
+
faska13: .
1 Lazarus. . " " :
procedure lcw(const Source: OleVariant; const PropertyName: String; const Value; const DataType: Integer);
var
Desc: TCallDesc;
begin
Desc.CallType := DISPATCH_PROPERTYPUT;
Desc.ArgCount := 1;
Desc.NamedArgCount := 0;
Desc.ArgTypes[0] := DataType;
StrPCopy(@DescArgTyes[1], UTF8ToWinCP(ProperyName));
VarDispProc(nil, Source, @Desc, @Value);
end;
WideString(Utf8ToAnsi()). , . , "". OleVariant - varDispatch. . DISPATCH_PROPERTYPUTREF. . ?
P.S. DISPATCH_METHOD.
https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842808
