FMX'De whatsapp dosya paylaşımı

[mcuyan]

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);

[ovural]

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

[mcuyan]

Hocam ben mobil uygulama için sordum. Acaba varmı dır bir Java kodu parametrik...

[emozgun]

@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

[mcuyan]

Bu Gemini bir Harika Dostlar

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 ( ) 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 ))

Acaip bir şey bu AI ler ya..

[selamigur55]

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

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 ( ) 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 ))

Acaip bir şey bu AI ler ya..

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