Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- TTwitter = class(TObject)
- private
- FAuthorized: boolean;
- FSource: string;
- FTwitterClient: string;
- FTwitterClientVersion: string;
- FTwitterClientURL: string;
- FUserName: string;
- FPassword: string;
- FConsumer: TOAuthConsumer;
- FToken: TOAuthToken;
- FRequest: TOAuthRequest;
- FHMAC: TOAuthSignatureMethod_HMAC_SHA1;
- FKey: string;
- FSecret: string;
- FOAuth_token: string;
- FOAuth_token_secret: string;
- FAuthHeader: string;
- procedure SetSource(const Value: string);
- procedure SetTwitterClient(const Value: string);
- procedure SetTwitterClientVersion(const Value: string);
- procedure SetTwitterCLientURL(const Value: string);
- function GetRequestsCount: integer;
- function GetResetLimitTime: TDateTime;
- procedure AddCustomHeader(Sender: TObject; const Method: String;
- Headers: TStrings);
- procedure CheckResponce(const Responce:string);
- public
- constructor Create;
- procedure SetAccountInfo;
- procedure GetRateLimits;
- procedure GetFollowersIds;
- function GetCurrentHashTags:TStringList;
- function POSTCommand(URL: string; Params: TStringList): string;
- function GETCommand(URL: string): string;
- function Update(const Text: string): string;
- property Source: string read FSource write SetSource;
- property TwitterClient: string read FTwitterClient write SetTwitterClient;
- property TwitterClientVersion: string read FTwitterClientVersion write
- SetTwitterClientVersion;
- property TwitterClientURL: string read FTwitterClientURL write
- SetTwitterCLientURL;
- property Consumer: TOAuthConsumer read FConsumer write FConsumer;
- property Token: TOAuthToken read FToken write FToken;
- property Request: TOAuthRequest read FRequest write FRequest;
- property HMAC: TOAuthSignatureMethod_HMAC_SHA1 read FHMAC write FHMAC;
- property Key: string read FKey write FKey;
- property Secret: string read FSecret write FSecret;
- property OAuth_token: string read FOAuth_token write FOAuth_token;
- property OAuth_token_secret
- : string read FOAuth_token_secret write FOAuth_token_secret;
- property Authorized: boolean read FAuthorized write FAuthorized;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement