Hocam ilginiz için teşekkür ediyorum.
bunun yerine buraya ne yapmak istediğini yazarsan daha iyi bir yöntem tavsiyesi verilebilir
Sms atacağım kişilerin telefon numaralarını JvCheckListBox da tutuyorum ve burada true durumunda olanlara atacağım mesajı Veritabanımda de kayıtlı olan kişilerin (master tablom) TEL_NO alanlarını sorgulatarak o kişinin detay tablosundaki MESAJ bölümüne kaydetmek isitiyorum(tabi mesaj gitmiş ise).Böylece kimlere hangi sms atıldığını hangi tarihte atıldığı gibi bir kayıt tutayım istiyorum.
Sonunda sms atma işini becerebilidim sayenizde ayrıca teşekkür ediyorum .numaralar arsına virgül koymadan).Fakat giden her sms i hangi telefon numarasına atılmış ise vt den sorgulatıp mesajı kaydetmek istiyorum.Ama beceremedim
master tablom TBL_OGRENCI alanlarından biri TEL_NO
detey tablom TBL_SMS ise MESAJ-ID-TARIH
IBQuery7 TBL_OGRENCI ye bağlı
sms atma kodunu yazıyorum ve bu kodların arasına bu isteğimi sıkıştırmak istiyorum.Kodlarınızı dendim ama yapamdım
Kod: Tümünü seç
var
i:integer;
Number:string;
begin
if JvDotNetMemo1.Text='' then
begin
MessageBox(Handle,'Mesajınız Boş. ','Bilgi',MB_OK+MB_ICONINFORMATION);
exit;
end;
if Label6.Caption='0' then
begin
MessageBox(Handle,'Numara listesinde mesajın gönderileceği en az 1 numara işaretli olmalıdır.','Bilgi',MB_OK+MB_ICONINFORMATION);
exit;
end;
for i:=0 to JvCheckListBox1.Items.Count-1 do
begin
Number:=JvCheckListBox1.Items.Strings[i];
if JvCheckListBox1.Checked[i]=True then
begin
try
JvCheckListBox1.Checked[i]:=false; //ileti gönderileni kaldır
// gönderim
StrHTTP:='username='+edit1.Text+'&company='+edit3.text+'&password='+edit2.text+'&action=0&message='+JvDotNetMemo1.Text+'&numbers='+Number;
Memo1.Text:=HTTPSend(StrHTTP);
// gönderim
ListBox2.Items.add(Number);
try
IdAntiFreeze1.Active:=True;
ListBox1.Clear;//Listbox1 benim gönderim durumu ve hata bilgisini gösterdiğim listem...
ListBox1.Items.Add('İşlem Raporu:');
ListBox1.Items.Add('->'+DateToStr(date)+'-'+copy(TimeToStr(time),1,5));
ListBox1.Items.Add('->Mesaj Gönderiliyor...');
if Memo1.Text='01' then // hata kodları firmanın verdiği bilgilerden alınmıştır pdf dosyası...
begin
ListBox1.Items.Add('->Mesaj İletilemedi !');
ListBox1.Items.Add('->Açıklama:Hatalı kullanıcı adı – şifre – bayi kodu');
end;
if Memo1.Text='02' then
begin
ListBox1.Items.Add('->Mesaj İletilemedi !');
ListBox1.Items.Add('->Açıklama:Yetersiz kredi,Paket işlenmemiş ya da Gateway tarafında beklemede');
end;
if Memo1.Text='04' then
begin
ListBox1.Items.Add('->Mesaj İletilemedi !');
ListBox1.Items.Add('->Açıklama:Eksik parametre girişi');
end;
if Memo1.Text='05' then
begin
ListBox1.Items.Add('->Mesaj İletilemedi !');
ListBox1.Items.Add('->Açıklama:Hatalı parametre girişi');
end;
if Memo1.Text='06' then
begin
ListBox1.Items.Add('->Mesaj İletilemedi !');
ListBox1.Items.Add('->Açıklama:Tanımsız Originator Bilgisi');
end;
if (AnsiCompareText('3152005',Memo1.Text)<0)or (AnsiCompareText('3152005',Memo1.Text)=0) then
begin
ListBox1.Items.Add('->Mesajınız İletilmiştir.');
[u]//buraya yazılacak kodlar veya başka satıra
form1.IBQuery7.close;
form1.IBQuery7.SQL.clear;
form1.IBQuery7.SQL.Text:='update TBL_OGRENCI set MESAJ='+#39+JvDotNetMemo1.Text+#39+' where TEL_NO='+#39+JvCheckListBox1.Items.Strings[i]+#39+'';
form1.IBQuery7.ExecSQL;
//buraya yazılacak kodlar veya başka satıra[/u]
end;
finally
IdAntiFreeze1.Active:=False;
end;
except
on E:Exception do
begin
MessageBox(handle,'Servis sağlayıcıya bağlanılamadı.'+#10#13+'İnternet bağlantınızı kontrol ediniz.'+#10#13+'Antivirüs programı kullanıyorsanız programın internete erişimine izin verin.','Hata',mb_ok+MB_ICONERROR);
end;
end;
end;
end;
end;
//buraya yazılacak kodlar veya başka satıra
form1.IBQuery7.close;
form1.IBQuery7.SQL.clear;
form1.IBQuery7.SQL.Text:='update TBL_OGRENCI set MESAJ='+#39+JvDotNetMemo1.Text+#39+' where TEL_NO='+#39+JvCheckListBox1.Items.Strings+#39+'';
form1.IBQuery7.ExecSQL;
//buraya yazılacak kodlar veya başka satıra
bunu düzenleyemedim. 
vermiş olduğun kodu denedim uyarlama çalıştım ama nafile.
