Yorumları: 12
Konuları: 5
Kayıt Tarihi: 20-12-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 15
Başlangıç
var
endURL : String;
Intend : TJIntent;
begin
try
EndURL := 'https://api.whatsapp.com/send?phone=+9' + GSMNO + '&text=' + MESAJIMIZ;
Intend := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
Intend.setType(StringToJString('text/plain'));
Intend.setData(TJNet_Uri.JavaClass.parse(StringToJString(TIdUri.URLEncode(EndURL))));
SharedActivity.startActivity(Intend);
except on e:exception do
toast(e.Message)
end;
end;
Yukarıdaki kodla whatsapp açılıyor mesajımız mesaj kutusunda yer alıyor gönder buttonuna bastığımızda
ilgili telefona mesal iletiliyor. sms gönderir gibi whatsapp geri planda çalıştırıp mesajımızı belirttiğimiz telefona
otomatik olarak gönderebilirmiyiz. TJIntent.JavaClass.ACTION_SEND çalışmadı hata verdi.
IntentWhats: = TJIntent.JavaClass.init (TJIntent.JavaClass.ACTION_SEND);
IntentWhats.setType (StringToJString ('text / plain'));
IntentWhats.putExtra (TJIntent.JavaClass.EXTRA_TEXT,
StringToJString (MESAJIMIZ));
IntentWhats.setPackage (StringToJString ('com.whatsapp'));
SharedActivity.startActivity (IntentWhats);
Bu kod parçasındada telefon bilgilerini nerede gireceğimizi çözemedim .
Delphican ailesine selamlar.
Yorumları: 100
Konuları: 12
Kayıt Tarihi: 23-09-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 308
Acemi
17-04-2021, Saat: 15:10
(Son Düzenleme: 17-04-2021, Saat: 15:15, Düzenleyen: tmrksmt.)
(17-04-2021, Saat: 14:52)kornakamil Adlı Kullanıcıdan Alıntı: var
endURL : String;
Intend : TJIntent;
begin
try
EndURL := 'https://api.whatsapp.com/send?phone=+9' + GSMNO + '&text=' + MESAJIMIZ;
Intend := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
Intend.setType(StringToJString('text/plain'));
Intend.setData(TJNet_Uri.JavaClass.parse(StringToJString(TIdUri.URLEncode(EndURL))));
SharedActivity.startActivity(Intend);
except on e:exception do
toast(e.Message)
end;
end;
Yukarıdaki kodla whatsapp açılıyor mesajımız mesaj kutusunda yer alıyor gönder buttonuna bastığımızda
ilgili telefona mesal iletiliyor. sms gönderir gibi whatsapp geri planda çalıştırıp mesajımızı belirttiğimiz telefona
otomatik olarak gönderebilirmiyiz. TJIntent.JavaClass.ACTION_SEND çalışmadı hata verdi.
IntentWhats: = TJIntent.JavaClass.init (TJIntent.JavaClass.ACTION_SEND);
IntentWhats.setType (StringToJString ('text / plain'));
IntentWhats.putExtra (TJIntent.JavaClass.EXTRA_TEXT,
StringToJString (MESAJIMIZ));
IntentWhats.setPackage (StringToJString ('com.whatsapp'));
SharedActivity.startActivity (IntentWhats);
Bu kod parçasındada telefon bilgilerini nerede gireceğimizi çözemedim .
Delphican ailesine selamlar.
Merhaba...
Whatsapp numarasına direkt mesaj gönderme konusunda zamanında az uğraşmamıştım. Aşağıdaki örnek kodlar ile bunu sağlayabilirsiniz. Yalnız PC de Windows 8 ve üzeri olmalı ve Whatsapp uygulaması da yüklü olmalıdır. Bu şekilde uygulamadan istediğiniz numaraya mesaj iletebiliyorsunuz. Aslında uygulamanın yaptığı en önemli iş Whatssapp'ı açtıktan sonra mesaj göndermek için sanal bir tıklama yapmasıdır. Ben FMX de denemedim sadece VCL de denedim yalnız bilginiz olsun. Yani FMX e uyarlayabilirseniz çalışır diye düşünüyorum. Ama PC den sorunsuz gönderir.
En alttaki kodlar formu ve Whatsap'ı otomatik kapatmak içindir.
procedure SendKey(hWnd: THandle; KeyStroke: Word);
begin
PostMessage(hWnd, WM_SETFOCUS, 0, 0);
PostMessage(hWnd, WM_KEYDOWN, KeyStroke, 0);
PostMessage(hWnd, WM_KEYUP, KeyStroke, 0);
end;
procedure WhatsAppMesaj;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
MyHandle: THandle;
MMessage : ansistring;
begin
//**
MMessage := 'Merhaba...!!!';
ExecuteFile:='whatsapp://send/?phone=+9'+PPhoneNumber+'&text='+MMessage;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
{
ParamString can contain the
application parameters.
}
// lpParameters := PChar(ParamString);
{
StartInString specifies the
name of the working directory.
If ommited, the current directory is used.
}
// lpDirectory := PChar(StartInString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
//** Send Enter Key !!!
MyHandle:=FindWindow(nil, 'Whatsapp');
SendKey(MyHandle,VK_RETURN);
//**
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
//ShowMessage('WhatsApp terminated');
end
else ShowMessage('Error starting WhatsApp!');
end;
end;
procedure TForm42.ColorButton1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle:=FindWindow(nil, 'WhatsApp');
SendMessage(MyHandle, WM_CLOSE, 0, 0);
form42.Close;
end;
end.
Ne ekersen onu biçersin! 
Yorumları: 34
Konuları: 6
Kayıt Tarihi: 29-10-2020
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 105
Başlangıç
Merhaba, paylaşımınız için teşekkür ederim. Dosya gönderimi yapılabiliyor mu bu yöntemle?
Yorumları: 100
Konuları: 12
Kayıt Tarihi: 23-09-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 308
Acemi
(17-04-2021, Saat: 16:11)yanniosman Adlı Kullanıcıdan Alıntı: Merhaba, paylaşımınız için teşekkür ederim. Dosya gönderimi yapılabiliyor mu bu yöntemle?
Rica ederim de teşekkürleri genelde puanla beraber versek daha makbule geçer! 
Ne ekersen onu biçersin!
Yorumları: 151
Konuları: 14
Kayıt Tarihi: 18-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 552
Acemi
merhabalar
mesaj resim yada dosya gönderimi olabiliyor mu acaba?
Yorumları: 70
Konuları: 10
Kayıt Tarihi: 11-05-2020
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 363
Acemi
Bu, metin göndermenin iyi bir yoludur
Daha fazlasını yapmak istiyorsanız, Projeto-TInject bileşenini kullanabilirsiniz (Windows için)
https://github.com/mikelustosa/Projeto-TInject
Yorumları: 151
Konuları: 14
Kayıt Tarihi: 18-09-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 552
Acemi
(20-01-2022, Saat: 10:43)gbg Adlı Kullanıcıdan Alıntı: Bu, metin göndermenin iyi bir yoludur
Daha fazlasını yapmak istiyorsanız, Projeto-TInject bileşenini kullanabilirsiniz (Windows için)
https://github.com/mikelustosa/Projeto-TInject
Teşekkür ederim
Yorumları: 1
Konuları: 0
Kayıt Tarihi: 17-10-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 0
Başlangıç
(17-04-2021, Saat: 15:10)tmrksmt Adlı Kullanıcıdan Alıntı: (17-04-2021, Saat: 14:52)kornakamil Adlı Kullanıcıdan Alıntı: var
endURL : String;
Intend : TJIntent;
begin
try
EndURL := 'https://api.whatsapp.com/send?phone=+9' + GSMNO + '&text=' + MESAJIMIZ;
Intend := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW);
Intend.setType(StringToJString('text/plain'));
Intend.setData(TJNet_Uri.JavaClass.parse(StringToJString(TIdUri.URLEncode(EndURL))));
SharedActivity.startActivity(Intend);
except on e:exception do
toast(e.Message)
end;
end;
Yukarıdaki kodla whatsapp açılıyor mesajımız mesaj kutusunda yer alıyor gönder buttonuna bastığımızda
ilgili telefona mesal iletiliyor. sms gönderir gibi whatsapp geri planda çalıştırıp mesajımızı belirttiğimiz telefona
otomatik olarak gönderebilirmiyiz. TJIntent.JavaClass.ACTION_SEND çalışmadı hata verdi.
IntentWhats: = TJIntent.JavaClass.init (TJIntent.JavaClass.ACTION_SEND);
IntentWhats.setType (StringToJString ('text / plain'));
IntentWhats.putExtra (TJIntent.JavaClass.EXTRA_TEXT,
StringToJString (MESAJIMIZ));
IntentWhats.setPackage (StringToJString ('com.whatsapp'));
SharedActivity.startActivity (IntentWhats);
Bu kod parçasındada telefon bilgilerini nerede gireceğimizi çözemedim .
Delphican ailesine selamlar.
Merhaba...
Whatsapp numarasına direkt mesaj gönderme konusunda zamanında az uğraşmamıştım. Aşağıdaki örnek kodlar ile bunu sağlayabilirsiniz. Yalnız PC de Windows 8 ve üzeri olmalı ve Whatsapp uygulaması da yüklü olmalıdır. Bu şekilde uygulamadan istediğiniz numaraya mesaj iletebiliyorsunuz. Aslında uygulamanın yaptığı en önemli iş Whatssapp'ı açtıktan sonra mesaj göndermek için sanal bir tıklama yapmasıdır. Ben FMX de denemedim sadece VCL de denedim yalnız bilginiz olsun. Yani FMX e uyarlayabilirseniz çalışır diye düşünüyorum. Ama PC den sorunsuz gönderir.
En alttaki kodlar formu ve Whatsap'ı otomatik kapatmak içindir.
procedure SendKey(hWnd: THandle; KeyStroke: Word);
begin
PostMessage(hWnd, WM_SETFOCUS, 0, 0);
PostMessage(hWnd, WM_KEYDOWN, KeyStroke, 0);
PostMessage(hWnd, WM_KEYUP, KeyStroke, 0);
end;
procedure WhatsAppMesaj;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
MyHandle: THandle;
MMessage : ansistring;
begin
//**
MMessage := 'Merhaba...!!!';
ExecuteFile:='whatsapp://send/?phone=+9'+PPhoneNumber+'&text='+MMessage;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
{
ParamString can contain the
application parameters.
}
// lpParameters := PChar(ParamString);
{
StartInString specifies the
name of the working directory.
If ommited, the current directory is used.
}
// lpDirectory := PChar(StartInString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
//** Send Enter Key !!!
MyHandle:=FindWindow(nil, 'Whatsapp');
SendKey(MyHandle,VK_RETURN);
//**
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
//ShowMessage('WhatsApp terminated');
end
else ShowMessage('Error starting WhatsApp!');
end;
end;
procedure TForm42.ColorButton1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle:=FindWindow(nil, 'WhatsApp');
SendMessage(MyHandle, WM_CLOSE, 0, 0);
form42.Close;
end;
end.
Ben delphiye uyarladım harika çalışıyor. ancak SendKey(MyHandle,VK_RETURN) fonksiyonu çalışmıyor. illa ki elle tıklama gerekiyor.
Yorumları: 25
Konuları: 7
Kayıt Tarihi: 08-02-2017
Rep Puanı: 16
Başlangıç
(10-01-2023, Saat: 11:57)mustafaucuz Adlı Kullanıcıdan Alıntı: (17-04-2021, Saat: 15:10)tmrksmt Adlı Kullanıcıdan Alıntı: Merhaba...
Whatsapp numarasına direkt mesaj gönderme konusunda zamanında az uğraşmamıştım. Aşağıdaki örnek kodlar ile bunu sağlayabilirsiniz. Yalnız PC de Windows 8 ve üzeri olmalı ve Whatsapp uygulaması da yüklü olmalıdır. Bu şekilde uygulamadan istediğiniz numaraya mesaj iletebiliyorsunuz. Aslında uygulamanın yaptığı en önemli iş Whatssapp'ı açtıktan sonra mesaj göndermek için sanal bir tıklama yapmasıdır. Ben FMX de denemedim sadece VCL de denedim yalnız bilginiz olsun. Yani FMX e uyarlayabilirseniz çalışır diye düşünüyorum. Ama PC den sorunsuz gönderir.
En alttaki kodlar formu ve Whatsap'ı otomatik kapatmak içindir.
procedure SendKey(hWnd: THandle; KeyStroke: Word);
begin
PostMessage(hWnd, WM_SETFOCUS, 0, 0);
PostMessage(hWnd, WM_KEYDOWN, KeyStroke, 0);
PostMessage(hWnd, WM_KEYUP, KeyStroke, 0);
end;
procedure WhatsAppMesaj;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString, StartInString: string;
MyHandle: THandle;
MMessage : ansistring;
begin
//**
MMessage := 'Merhaba...!!!';
ExecuteFile:='whatsapp://send/?phone=+9'+PPhoneNumber+'&text='+MMessage;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
{
ParamString can contain the
application parameters.
}
// lpParameters := PChar(ParamString);
{
StartInString specifies the
name of the working directory.
If ommited, the current directory is used.
}
// lpDirectory := PChar(StartInString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
//** Send Enter Key !!!
MyHandle:=FindWindow(nil, 'Whatsapp');
SendKey(MyHandle,VK_RETURN);
//**
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
//ShowMessage('WhatsApp terminated');
end
else ShowMessage('Error starting WhatsApp!');
end;
end;
procedure TForm42.ColorButton1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle:=FindWindow(nil, 'WhatsApp');
SendMessage(MyHandle, WM_CLOSE, 0, 0);
form42.Close;
end;
end.
Ben delphiye uyarladım harika çalışıyor. ancak SendKey(MyHandle,VK_RETURN) fonksiyonu çalışmıyor. illa ki elle tıklama gerekiyor.
Merhaba bende de kodlama yaptığım pc de direk enter a bastı fakat uygulamanın çalıştığı pc de SendKey(MyHandle,VK_RETURN) kodu çalışmadı siz çözebildiniz mi? ben windows ile alakalı bir durum olduğunu düşünüyorum.
Yorumları: 196
Konuları: 13
Kayıt Tarihi: 16-11-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 380
Acemi
22-01-2023, Saat: 15:56
(Son Düzenleme: 22-01-2023, Saat: 16:12, Düzenleyen: enigma.)
Tamda böyle bir şey arıyordum. Program çalıştı. Hata vermedi ama mesaj gitmedi. Daha doğrusu ENTER kodunu kabul etmedi. Elle göndere basmak gerekiyor. Bun nasıl çözeriz ?
|
