Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[ÇÖZÜLDÜ] Google Calendar API Server tipi Erişim Metodu hakkında tecrübesi olan
#11
nereye geleceğini biliyorsunuz burada olmaz Wink
WWW
Cevapla
#12
Wink  Golü değerlendiremedim ama süper assist üstat. 

Örnek hazırlanmak üzere, ekran formu üzerine çalışıyorum. 
Buradan DelphiCAN ailesine kendi yağında pişen ilk ücretsiz halini de hediye etmiş olayım.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#13
Emeğinize sağlık mrmarman.

Proje kapsamını tam olarak bilmiyorum ama SSL dağıtma sorunu yaşamamak için Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. bileşeni kullanabilirsiniz. Hem DELETE metodu da var Smile
There's no place like 127.0.0.1
WWW
Cevapla
#14
Teşekkürler üstadım, şimdi baktım da Delphi 2007 için desteğini göremedim...
Geriye dönük uyumlu olsun diye bakıyorum.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#15
Merhaba,
XE3 ve sonrası için uyumlu fakat düzenleme ile 2009-2010 ve XE2 içinde kullanılabileceğinin belirtildiği bir kütüphane yayınlanmış. Denemedim fakat Delete mevcut mevcut gözüküyor.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla
#16
(20-03-2018, Saat: 17:17)Cyber Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Merhaba,
XE3 ve sonrası için uyumlu fakat düzenleme ile 2009-2010 ve XE2 içinde kullanılabileceğinin belirtildiği bir kütüphane yayınlanmış. Denemedim fakat Delete mevcut mevcut gözüküyor.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Ama orada da şöyle yazıyor:
"The current version of Google API Client Library for Delphi needs for the non-free library Clever Internet Suite."
Clever Internet Suite ise 370 $  Dodgy

Şimdi fark ettim; yukarıda mrmarman bu setten zaten bahsetmiş Sad
There's no place like 127.0.0.1
WWW
Cevapla
#17
Sıkıntı yok, bedavası yolda. Shy 

Birazdan bir işim var çıkmak zorundayım, dönünce bitireceğim.

Sistem çalışıyor, arayüzü hazırlıyorum.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#18
vfnlqlifndl32lsvgkcu.png

Bir deneyin bakalım beğenecek misiniz  Smile

Sorunlar varsa raporlayın, çözelim KAYNAK KODLARI TOPLUCA yollayayım. Ya da derseniz ki "karşılaşılması olası sorunlar olursa biz de çözeriz" yarın gönderirim.


Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.. Güncelleme yaparsam oradan son halini indirirsiniz. 
Şimdi burada paylaşılan kod sürekli eskiyecek.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

( OpenSSL paket içinde lisans sorunu olmasın diye kaynak sitesinden indirmek serbest ) 

SSL DLL'ler için kaynak : Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.. indy_OpenSSL096 serisi Delphi 2007 ile uyumlu. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız. 

Proje klasöründe bir INI dosyası göreceksiniz. Bu dosyaya sizin için açtığım hesabın bilgileri yer alıyor. Umarım kötü niyetli birileri siz denemeye fırsat bulmadan zarar vermez.  Huh 

NOT: Debug Mode Checked verdim. Bu Explorer ekranını size gösterecek. 
Bir sorun olursa elle müdahale etme imkanı vermek için ekledim. 
Bilgisayarınızın GOOGLE güvenli cihazlar listesine eklenmesi için onay isteyebilir. Bunun da bir çaresine bakarız. Hesap bilgileri INI dosyadaki gibi.


[GMAIL]
GmailLogin=delphicanapi@gmail.com
GmailPass=delphi12345678
[APPLICATION]
DebugMode=1
[API]
Api_Key=AIzaSyBGQA4JzWs2JMM1bRAaIImkdCOc8_Wr_LU
client_id=668757082665-cq7hrctd4ihunm45l4bfep090jcst7o1.apps.googleusercontent.com
client_secret=_Qrl5wXB1q_6thypikU03-lR
Scopes=https://www.googleapis.com/auth/calendar
auth_uri=https://accounts.google.com/o/oauth2/auth
token_uri=https://accounts.google.com/o/oauth2/token
redirect_uris=urn:ietf:wg:oauth:2.0:oob


Helper Class giriş kısmı bunlar. İncelemek isterseniz Property'lere eklenmesi öncelikle ne varsa ekledim.

unit GoogleCalendar_Helper;

interface
Uses
//  ShareMem, // Indy Bileşen olmayan ama varmış gibi rapor edilen Memory Leak
             // Sorununa kökten çözüm oluyordu...
             // Ancak bilgisayarlarda "Borlndmm.dll" ihtiyacı doğuyor ondan kaldırdım.
   Windows, Forms, Graphics, Controls, GifImg, Dialogs, SysUtils, Classes, Variants,
   ShellApi, SHDocVw, DateUtils, MSHTML, ComObj,
   IdHttp, IdGlobal, IdSSLOpenSSL, IdAntiFreeze, IdThread;

Type
 pAttendeesRecord = ^tAttendeesRecord;
 tAttendeesRecord = Record
     attEmail     : String;
     attDispName  : String;
     attComment   : String;
     attId        : String;
     attOrganizer : Boolean;
end;

Type
 pCalEventRecord = ^tCalEventRecord;
 tCalEventRecord = Record
    BasTar      : TDateTime;
    BitTar      : TDateTime;
    TimeZone    : String;
    boolTumGun  : Boolean;
    description : String;
    colorId     : Integer;
    location    : String;
    summary     : String;
    creaDispName: String;
    creaEmail   : String;
    creaId      : String;
    Attendees   : Array of pAttendeesRecord;
end;

Type
 TSorguTipi = ( stGET, stPOST, stDELETE, stGET_KEYParam, stPOST_KEYParam, stDELETE_KEYParam );

Type
 TGoogleCal_Helper = Class(TObject)
 private
   Const
     FCalendarUri  = 'https://www.googleapis.com/calendar/v3/calendars/';
   Var
     Fapi_Key                      : String;
     Fclient_id                    : String;
     Fclient_secret                : String;
     FScopes                       : String;
     Fauth_uri                     : String;
     Ftoken_uri                    : String;
     Fredirect_uris                : String;

     FAuth20_Code                  : String;
     FLog                          : TStrings;
     FAccess_Token                 : String;
     FExpires_In                   : String;
     FRefresh_Token                : String;
     FToken_Type                   : String;
     FCalendarID                   : String;
     FLoginGmail                   : string;
     FLoginPass                    : string;
     FDebugMode                    : boolean;

   function  EncodeURI(const ASrc: string): UTF8String;
   function  WEBIslemler( aType: TSorguTipi; aUrl : String; boolJSON:boolean = false; slParam: TStringList = nil ): String;
   procedure LOGla( strIcerik: String );
 public
   constructor Create;
   destructor  Destroy; Override;
   function    GoogleOAUTH_01: string;
   function    GoogleOAUTH_02: string;
   property    CalendarID    : string read FCalendarID Write FCalendarID;
   property    Api_Key       : string read FApi_Key Write FApi_Key;
   property    Client_Id     : string read Fclient_id Write Fclient_id;
   property    Client_Secret : string read FClient_Secret Write FClient_Secret;
   property    Scopes        : string read FScopes Write FScopes;
   property    Auth_Uri      : string read FAuth_Uri Write FAuth_Uri;
   property    Token_Uri     : string read FToken_Uri Write FToken_Uri;
   property    Redirect_Uris : string read FRedirect_Uris Write FRedirect_Uris;
   property    LoginGmail    : string read FLoginGmail Write FLoginGmail;
   property    LoginPass     : string read FLoginPass Write FLoginPass;
   property    DebugMode     : boolean read FDebugMode Write FDebugMode;
   function    ReferansKontol: String;
   property    Log           : TStrings read FLog Write FLog;
   property    AccessToken   : string read FAccess_Token;
   function    CalEventList  : String;
   procedure   CalEventIDs   ( Liste : TStrings );
   function    CalEventEkle  ( aEvent: pCalEventRecord ): String;
   function    CalEventSil( aEventId: String ): String;
   function    CalEventFromID(aEventId: String): String;
   function    ParseEvent(strIcerik: String): pCalEventRecord;
   function    AradanSec(var strIcerik: String; strBas, strSon: String; boolTrim:boolean=false ): string;
 end;
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#19
(20-03-2018, Saat: 17:42)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(20-03-2018, Saat: 17:17)Cyber Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Merhaba,
XE3 ve sonrası için uyumlu fakat düzenleme ile 2009-2010 ve XE2 içinde kullanılabileceğinin belirtildiği bir kütüphane yayınlanmış. Denemedim fakat Delete mevcut mevcut gözüküyor.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Ama orada da şöyle yazıyor:
"The current version of Google API Client Library for Delphi needs for the non-free library Clever Internet Suite."
Clever Internet Suite ise 370 $  Dodgy

Şimdi fark ettim; yukarıda mrmarman bu setten zaten bahsetmiş Sad

370 $

s-b441c1b2929f0b89e026a2f6af31bcef6a183598.gif
Cevapla
#20
Muharrem Bey, paylaşım için teşekkürler.
There's no place like 127.0.0.1
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Moduler Programlama Hakkinda TheEAK 4 142 18-09-2019, Saat: 10:43
Son Yorum: TheEAK
  Delphi ile Webserverlar icin cache server yapimi TheEAK 0 73 12-09-2019, Saat: 16:36
Son Yorum: TheEAK
  ÇÖZÜLDÜ-timer kullanmadan saat kontrolü mümkünmü? sadikacar60 3 143 10-09-2019, Saat: 22:19
Son Yorum: sadettinpolat
  [ÇÖZÜLDÜ] cxgrid hücre formatı wiseman 2 75 10-09-2019, Saat: 13:53
Son Yorum: wiseman
  [ÇÖZÜLDÜ]Server İşletim Sisteminde Çalışan Windows Servis te is not a valid date Hata theSinan 9 245 28-08-2019, Saat: 10:05
Son Yorum: adelphiforumz



Konuyu Okuyanlar: 1 Ziyaretçi