Advertisement
wandrake

Untitled

Mar 6th, 2012
310
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.49 KB | None | 0 0
  1. function main(audioMaster: TAudioMasterCallbackFunc): PAEffect; cdecl; export;
  2. begin
  3.   // get vst version
  4.   if audioMaster(nil, audioMasterVersion, 0, 0, nil, 0) = 0 then
  5.   begin
  6.     Result := nil;
  7.     Exit;         // Old version
  8.   end;
  9.  
  10.   effect := AExampleEffect.Create(audioMaster, 0, 0);
  11.   if not Assigned(effect) then
  12.   begin
  13.     Result := nil;
  14.     Exit;
  15.   end;
  16.  
  17.   if oome then
  18.   begin
  19.     Effect.Free;
  20.     Result := nil;
  21.     Exit;
  22.   end;
  23.  
  24.   Result := effect.getAeffect;
  25. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement