You've already forked lazarus-ccr
6f8c048343
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1748 8e941d3f-bd1b-0410-a28a-d453659cc2b4
17 lines
257 B
ObjectPascal
17 lines
257 B
ObjectPascal
|
|
Program testaws;
|
|
|
|
Uses aws;
|
|
|
|
Var TMPAWS: TAWSAccess;
|
|
|
|
Begin
|
|
tmpaws := tawsaccess.createRequest('pearl jam', ' vs');
|
|
tmpaws.sendrequest;
|
|
Repeat
|
|
Until tmpaws.data_ready;
|
|
tmpaws.albumcovertofile('test.jpg');
|
|
Repeat
|
|
Until tmpaws.data_ready;
|
|
End.
|