Angus Robertson - Magenta Systems Ltd wrote:
>> The implementation should be delegated to a handling class which
>> could be replaced easily by the developper.
>
> Yes, it will be a new class in the OverbyteIcsMimeUtils unit.
Also handy would be a method LoadFromResource:
function TWhatEverMimeTypeClass.LoadFromResource(const AResName: string):
Boolean;
var
Rs : TResourceStream;
SL : TStringList;
I : Integer;
begin
try
Rs := TResourceStream.Create(hInstance, AResName, RT_RCDATA);
try
SL := TStringList.Create;
try
SL.LoadFromStream(Rs);
for I := 0 to SL.Count -1 do
if IndexOfName(SL.Names[I]) < 0 then
Add(SL[I]);
Result := True;
finally
SL.Free;
end;
finally
Rs.Free;
end;
except
Result := False;
end;
end;
>
> Angus
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
