原代码
function TIdWHOIS.WhoIs(const ADomain: string): string;
begin
Connect; try
IOHandler.WriteLn(ADomain);
Result := IOHandler.AllData;
finally Disconnect; end;
end;
修改为
function TIdWHOIS.WhoIs(const ADomain: string): string;
begin
Connect; try
<span style="background-color: rgb(255, 102, 102);">IOHandler.DefStringEncoding := IndyUTF8Encoding();</span>
IOHandler.WriteLn(ADomain);
Result := IOHandler.AllData;
finally Disconnect; end;
end;