Kod: Tümünü seç
frm_bekle.Show;
frm_bekle.BringToFront;
frm_main.sendtoback;
Button3.Text:='Kaydediliyor...Lütfen Bekleyiniz....';
serv:=GetServiceSoap(false,'',frm_login.HTTPRIO1);
if not IsConnected then
begin
showmessage('Şu an İnternet Bağlantısı Bulunmuyor.O yüzden veriler,telefonun yerel sistemine kaydedilecektir...');
frm_login.sqlexe(Format('insert into NIRENGI (USERNAME,PASS,UDID,NIRENGIID,ENLEM,BOYLAM,KONTROLTARIHSAAT,ACIKLAMA,FOTO1,FOTO2) VALUES(''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'')',[frm_login.edit_username.Text,frm_login.edit_password.Text ,frm_login.imei,frm_nirengi.id,inttostr(eb(enlem)),inttostr(eb(boylam)),FormatDateTime('MM.dd.yyyy HH:mm:ss',now),memo1.text,resim(birincifotograf),resim(ikincifotograf)]));
showmessage('Yerel Veri Tabanına Kaydedildi');
button3.Text:='Sisteme Kaydet';
birincifotograf.MultiResBitmap.Clear;
ikincifotograf.MultiResBitmap.Clear;
Memo1.Text:='';
label3.Text:='';
frm_main.Close;
frm_kontrol.Show;
end
else
begin
serv.NIRENGIKAYDET(frm_login.edit_username.Text,frm_login.edit_password.Text ,frm_login.imei,strtoint(frm_nirengi.id),eb(enlem),eb(boylam),FormatDateTime('MM.dd.yyyy HH:mm:ss',now),memo1.text,resim(birincifotograf),resim(ikincifotograf));
ShowMessage('Verileriniz Kaydedilmniştir.Ana Sayfaya Yönlendiriyorsunuz...');
frm_bekle.Close;
button3.Text:='Sisteme Kaydet';
birincifotograf.MultiResBitmap.Clear;
ikincifotograf.MultiResBitmap.Clear;
Memo1.Text:='';
label3.Text:='';
frm_main.Close;
frm_kontrol.Show;
end;