Anonymous user
MAC vendor lookup: Difference between revisions
m
Adding FreePascal example
Thundergnat (talk | contribs) m (→{{header|C}}: Remove vanity tags) |
m (Adding FreePascal example) |
||
Line 137:
FC:FB:FB:01:FA:21 Cisco Systems, Inc
D4:F4:6F:C9:EF:8D Apple, Inc.
</pre>
=={{header|FreePascal}}==
<lang pascal>program MACVendorLookup;
uses
fphttpclient;
var
res: String;
begin
if paramCount > 0 then begin
With TFPHttpClient.Create(Nil) do
try
allowRedirect := true;
try
res := Get('http://api.macvendors.com/' + ParamStr(1));
writeLn(res);
except
writeLn('N/A');
end;
finally
Free;
end;
end;
end.</lang>
{{out}}
<pre>
./MACVendorLookup 10-11-22-33-44-55-66
N/A
./MACVendorLookup 00-11-22-33-44-55-66
CIMSYS Inc
</pre>
| |||