Firebase cloud messaging

[aynurk]

Herkese merhaba.
Delphide yeniyim.
Ben firebase cloud message kullanarak VCL form uygulamasından android uygulamaya mesaj göndermeye çalışıyorum. Ancak bir hata alıyorum.

HTTP/1.0 401 the request was missing an Authentification Key (FCM Token). Please refer to section "Authentification" of the FCM documentation, at https://firebase.google.com/docs/cloud-messaging/server.

Bu hatanın sebebini bir türlü anlayamadım.

[greenegitim]

Hata mesajından anladığım Authentification Key göndermemişsin.
linkte ki örnekte
Content-Type:application/json
Authorization:key=AIzaSyZ-1u...0GBYzPu7Udno5aA //burayı göndermemişsin anlaşılan

{
"to" : "bk3RNwTe3H0:CI2k_HHwgIpoDKCIZvvDMExUdFQ3P1...",
"data" : {
...
},
}

[aynurk]

Teşekkürler cevabınız için. Ancak Authorization keyi gönderiyorum. Yine de bu hatayı almaya devam ediyorum.

[aynurk]

Pardon düzeltiyorum. Authentification key gönderiyorum

[greenegitim]

Örnek kod paylaşabilirmisiniz bir de
showmessage ile gönderdiğiniz bilgiyi ekranda bir gösterip karşılaştırın
showmessage(gonderim); şeklinde.

[aynurk]

procedure TForm1.Button1Click(Sender: TObject);
var
json, jsondata : TJSONObject;
registerIds : TJSONArray;
data, responseContent : TStringStream;
deviceToken : string;
begin
registerIds := TJSONArray.Create();
json := TJSONObject.Create();
jsondata := TJSONObject.Create();
responseContent := TStringStream.Create();
try
deviceToken := 'AAAA_ttgiG0:APA91bECBYqxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
registerIds.Add(deviceToken);

jsondata.AddPair('id','xxxxxx');
jsondata.AddPair('mesaj',Edit1.Text);
json.AddPair('',registerIds);
json.AddPair('veri',jsondata);

IdHTTP1.Request.ContentType := 'application/json';
IdHTTP1.Request.CustomHeaders.AddValue('Authorization:','key=AIzaSyD5xxxxxxxxx-xxxxxxxxx');
data := TStringStream.Create(json.ToString);
data.Position := 0;

IdHTTP1.Post('https://fcm.googleapis.com/fcm/send', data, responseContent);//Hata verdiği satır
responseContent.Position := 0;
Memo1.Lines.Add(responseContent.DataString);

finally
end;
end;


Debug yapıp adım adım çalıştırdığımda IdHTTP1.Post('https://fcm.googleapis.com/fcm/send', data, responseContent); satırında hata veriyor

[greenegitim]

Kodlarınızı code tagı içerisine alırsanız daha rahat görünür. satırında hata veriyor demişsiniz ne hatası veriyor çıkan mesaj nedir.
viewtopic.php?t=36127 buradaki örneği inceledinizmi.

[aynurk]

Verdiği hata ilk mesajda yazdığım hata. Evet o örneği de inceledim. Onun dışında başka örnekler de inceledim. Bana uygun olarak da düzenledim.

[AliZairov]

İyi akşamlar. Ben dün ne kadar bu konuda uğraştım çalışmadı malesef. GCM ve FCM çalıştıramadım. Muharrem abinin helper class çalışmadı malesef.

[greenegitim]

Şöyle bir çalışma yapılmış
http://thundaxsoftware.blogspot.com.tr/ ... elphi.html

[AliZairov]

Şöyle bir çalışma yapılmış
http://thundaxsoftware.blogspot.com.tr/ ... elphi.html

Merhaba. Teşekkürler. Diğer konuları denemiştim çalışmadı malesef. Deniyip sonuçu yazarım.

[QarmaLaW]

Epey zaman geçti ama konu da bir sonuç elde edebilen var mı ?