Народ, срчно нужны примеры доступа к Google Docs/Sites API на Delphi
Желательно имплементация следующих методов
Или если кому не лень транслировать с С, а то я в С не бум-бум
http://code.google.com/p/gdata-cpp-util/
— Function DocUpload(DocTitle, DocFileName, GoogleFolderName:string; user, password:string):string — should return URL to uploaded Doc if success or empty
— Function DocGetLink(DocTitle, GoogleFolderName:string; user, password:string):string — should return URL to existing Google Document if success or empty
//Add users from list to doc's share list
— Function DocShare(DocName, GoogleFolder:string
ShareType: (Viewer, Collaborator,Owner);
UsersList : TStringList;
SendInvitation:boolean;
InvitationText:WideString;
user, password:string):boolean
//Remove all users from shared list, except the owner! Never remove the owner!
— Function DocUnShare(DocName, GoogleFolder:string
ShareType2Remove: (Viewer, Collaborator,Owner);
user, password:string):boolean
Google Sites
===========
//Add anouncement type of entry
— Function SiteAddEntry ( PageUnder, sHTML, Title:string
user, password:string)