Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
FMX'De whatsapp dosya paylaşımı
#1
Merhaba arkadaşlar.

Mobli Uygulamam da bir ekranın screenshootını alıp resmi olarak paylaş deyip whatsapp ı tıklıyorum, ve sonrasın da kişiyi seçip gönderim yapıyorum.

Bu işi otomatikleştirebilir miyiz? yani o ekranın screenshootunu alıyorum zaten. butona bastığım da daha önceden tanımlı numaraya otomatik gönderim sağlayabilir miyiz? buna benzer çalışma yapan oldu mu?

Bu şekilde actionList ile paylaşabiliyorum.

ShowShareSheetAction2.Bitmap.Assign(VertScrollBox1.MakeScreenshot);
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#2
Guvenlik geregi sanirim telefondan direk gonderim yok .. ama projen nasil bilmiyorum soyle birsey yapabilirsin ..

whatsapp-web.js kur bir bilgisayara .. web whatsapp gibi kare kod ile cihazi bagla.. telefondaki ekran goruntusunu alinca o bilgisayara post et .. bilgisayardan da istedigin numaraya gonderebilirsin .. ana fikir bu .. daha da detay istersen yazarim
Cevapla
#3
Hocam ben mobil uygulama için sordum. Acaba varmı dır bir Java kodu parametrik...
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#4
@mcuyanhocam 
chat.deepseek.com "generate android Delphi pascal code that shares via whatsapp only" yazınca bolca kod üretiyor. Özellikle bu kısımları direk kullanabilirsin:

  LIntent.setPackage(StringToJString('com.whatsapp'));
  LURI := TJnet_Uri.JavaClass.parse(StringToJString('https://api.whatsapp.com/send?phone=' + LFormattedNumber));
  
 if not Message.IsEmpty then
   LURI := TJnet_Uri.JavaClass.parse(StringToJString('https://api.whatsapp.com/send?phone=' + LFormattedNumber + '&text=' + JStringToString(TJnet_URLEncoder.JavaClass.encode(StringToJString(Message), StringToJString('UTF-8')))));
 
 LIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, LURI);
 LIntent.setPackage(StringToJString('com.whatsapp'));
Çalışmazsa haber verirsin. Kolay gelsin
Cevapla
#5
Bu Gemini bir Harika Dostlar Smile


procedure SendImageToWhatsApp(const APhoneNumber: string; ABitmap: TBitmap);
var
 Intent: JIntent;
 Uri: Jnet_Uri;
 TempPath, FileName: string;
 JFileObj: JFile;
 JID: string;
begin
 // 1. Resmi Kaydet
 FileName := 'cari.png';
 // Paylaşılan dökümanlar klasörü WhatsApp'ın erişimi için daha uygundur
 TempPath := TPath.Combine(TPath.GetSharedDocumentsPath, FileName);
 ABitmap.SaveToFile(TempPath);

 // 2. Numarayı Ayarla (90532... formatında olmalı)
 JID := APhoneNumber + '@s.whatsapp.net';

 // 3. Dosya Objesi ve URI Oluşturma (Modern Yöntem)
 JFileObj := TJFile.JavaClass.init(StringToJString(TempPath));

 // Delphi'nin kendi helper'ını kullanmak en güvenlisidir:
 Uri := TAndroidHelper.JFileToJURI(JFileObj);

 // 4. Intent Hazırlığı
 Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SEND);
 Intent.setType(StringToJString('image/png'));

 // JParcelable hatasını engellemek için doğrudan Uri nesnesini gönderiyoruz
 // Delphi'nin JNI köprüsü bunu otomatik halleder.
 Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap(Uri));

 // WhatsApp'a özel hedefleme
 Intent.putExtra(StringToJString('jid'), StringToJString(JID));
 Intent.setPackage(StringToJString('com.whatsapp'));

 // OKUMA İZNİ VERMEK KRİTİKTİR
 Intent.addFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);

 try
   TAndroidHelper.Activity.startActivity(Intent);
 except
   on E: Exception do
     ShowMessage('WhatsApp başlatılamadı veya yüklü değil: ' + E.Message);
 end;
end;


Kullanımı:

 SendImageToWhatsApp(telefon, VertScrollBox1.MakeScreenshot);

Küstah mikrop ( Smile ) bir de diyor ki bana: Eğer uygulaman da telefon numaraları yüklü değil ve rebernden ulaşmak istersen yardımcı olabilirim.. Oldu da Smile))

Acaip bir şey bu AI ler ya..
// Bilgi paylaştıkça çoğalır.. 

Cevapla
#6
(09-01-2026, Saat: 00:44)mcuyan Adlı Kullanıcıdan Alıntı: Bu Gemini bir Harika Dostlar Smile


procedure SendImageToWhatsApp(const APhoneNumber: string; ABitmap: TBitmap);
var
 Intent: JIntent;
 Uri: Jnet_Uri;
 TempPath, FileName: string;
 JFileObj: JFile;
 JID: string;
begin
 // 1. Resmi Kaydet
 FileName := 'cari.png';
 // Paylaşılan dökümanlar klasörü WhatsApp'ın erişimi için daha uygundur
 TempPath := TPath.Combine(TPath.GetSharedDocumentsPath, FileName);
 ABitmap.SaveToFile(TempPath);

 // 2. Numarayı Ayarla (90532... formatında olmalı)
 JID := APhoneNumber + '@s.whatsapp.net';

 // 3. Dosya Objesi ve URI Oluşturma (Modern Yöntem)
 JFileObj := TJFile.JavaClass.init(StringToJString(TempPath));

 // Delphi'nin kendi helper'ını kullanmak en güvenlisidir:
 Uri := TAndroidHelper.JFileToJURI(JFileObj);

 // 4. Intent Hazırlığı
 Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SEND);
 Intent.setType(StringToJString('image/png'));

 // JParcelable hatasını engellemek için doğrudan Uri nesnesini gönderiyoruz
 // Delphi'nin JNI köprüsü bunu otomatik halleder.
 Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap(Uri));

 // WhatsApp'a özel hedefleme
 Intent.putExtra(StringToJString('jid'), StringToJString(JID));
 Intent.setPackage(StringToJString('com.whatsapp'));

 // OKUMA İZNİ VERMEK KRİTİKTİR
 Intent.addFlags(TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION);

 try
   TAndroidHelper.Activity.startActivity(Intent);
 except
   on E: Exception do
     ShowMessage('WhatsApp başlatılamadı veya yüklü değil: ' + E.Message);
 end;
end;


Kullanımı:

 SendImageToWhatsApp(telefon, VertScrollBox1.MakeScreenshot);

Küstah mikrop ( Smile ) bir de diyor ki bana: Eğer uygulaman da telefon numaraları yüklü değil ve rebernden ulaşmak istersen yardımcı olabilirim.. Oldu da Smile))

Acaip bir şey bu AI ler ya..

hocam geminiye böyle tepki verdiyseniz claude opus 4.5 i deyince ne yaparsınız kestiremiyorum   Smile
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Birden Fazla İmage ı Whatsapp ile paylaşmak barissagir 1 540 05-06-2025, Saat: 03:24
Son Yorum: barissagir
  Android’de Dosya Depolama ve Paylaşma-2: And 11 SDK 30 Scoped Storage SAF MediaStore emozgun 12 8.498 19-03-2024, Saat: 22:29
Son Yorum: nguzeller
  whatsapp otomatik mesaj gönderme kornakamil 20 10.236 16-08-2023, Saat: 18:35
Son Yorum: enigma
  Android uygulama içinden pdf dosyayı whatsapp ile göndermek serifaliyagci 4 2.018 12-07-2023, Saat: 15:44
Son Yorum: serifaliyagci
  Android *.gif Dosya Oynatma. hayalyilmaz43 15 5.630 05-05-2023, Saat: 10:11
Son Yorum: RAD Coder



Konuyu Okuyanlar: 1 Ziyaretçi