[Uni Mobil Proje TimeOut Süresi Hk.]

Yaptığım programı sattığımız zaman ilk işim bir lisans almak olucak. Programın internet versiyonunuda o zaman sunarım. Çok teşekkür ederim yardımlarınız için.

 

Saygılarımla;

[Uygulama Yayınlamak]

Yani diyorsunuz ki kardeşim ne yaparsan yap git html, php v.s. bişi öğren başka çaren yok :-)

Anlayışınıza çok teşekkür ederim...

[Uni Mobil Proje TimeOut Süresi Hk.]

ServerModule'deki session time out 180000'den büyük olmuyor. Ne yaparsam yapim 180000'e geri geliyor.

Aktif forma timer ekleyip sayfayı yeniden mi yükleteceğim ki timeout'a düşmesin? Burayı anlayamadım.

[Uygulama Yayınlamak]

Selam;

 

Web sitesi tamamen application oldu. Soru şu? Arama motorları (google, yandex v.s.) bu web sitesindeki (dll dosyası) içerikleri bulabilecekler mi?

[Link Paylaşma]

Selam;

Öncelikle sizinle alakalı bir konu olmayabilir ama yardım edebileceğinizi düşündüm.

Facebook sayfalarım için belirlediğim bir klasörden her gün belirlediğim bir saatte video veya resimi otomatik paylaştırmak istiyorum. Fakat delphi için böyle bir kod bulamıyorum. (Not: illegal bir yapı olsun istemiyorum. Yapmam gereken paylaşımları unutuyorum. bu nedenle böyle bir programa ihtiyaç duyuyorum, başkalarının başka dille yazmış olduklarına da güvenmiyorum) 

[Uni Mobil Proje TimeOut Süresi Hk.]

Merhaba;

 

Program gibi değil de web sitesi gibi düşünüp anasayfa, iletişim v.s. gibi sayfalar yaptım, Sayfalardan birinde de login ekranı yaparak programa giriş yaptırdım.

Asıl Web Sitemdeki index.html'i bir kodla kendi web server'imdaki dll dosyasına yönlendirdim ve hem web sitesi hem de program gibi çalışıyor ancak interval 180000 olduğu için bu 3 dakika ediyor ve doğal olarak anasayfa 'Invalid session or session Timeout' hatası veriyor. Bu hatayı almamak için öneriniz nedir? (Yapıyı değiştirip sadece program için yönlendirme yapmakta olabilir ama ben web sitesinin de delphi ile yapılmış olamasını tercih ederim.)

 

Saygılarımla; 

[Uygulama Yayınlamak]

Sanırım şimdi oldu. Bir tane html yapıp onunla klasöre ve dosyaya yönlendirme yaptım. Yardımlarınız için teşekkür ederim

[Uygulama Yayınlamak]

Evet haklıymışsınız modem ip adresiyle gelinmiyor. localhost\klasor\dosya.dll şeklinde yazınca oluyor http//ipadresi ya da http//ipadresi.8077 yazınca bir şey olmuyor. Peki ama neden? modemden her türlü yönlendirmeyi yaptım 8077 portunu, 80 portunu 8080 portunu başka ne yapmam gerekiyor?

 

bilgisayarın firewall'unu kapattım bu kezde dosya.dll dosyasını bilgisayara indirmeye başladı :-)

 

 

http://ipadresi/unitech/dosya.dllşeklinde yazınca oldu ama bu bana doğruymuş gibi gelmiyor :-) hala bir şeyleri yanlış ya da eksik yapıyorum.

[Uygulama Yayınlamak]

Tekrar merhaba;

 

Sizin söyleminizden hosting firmasının domainin'de ip yönlendirmesi yapıcam yani adsl ip numaramı yazıcam, modem'den de yönlendirmeyi iis kurduğumuz bilgisayara yapıcam anladım ve yaptım ancak hosting firmasının dns yönlendirmesinde bu ip adresi kayıt defterinde yoktur diye bir hata verdi.

[Uygulama Yayınlamak]

Merhaba,

Localde IIS'i ayarladım dll dosyası çalışıyor peki web sitelerinin serverlarında nasıl yapıcaz? Mesela Cpanel'de böyle bir ayar var mıdır?  

[Yuvarlak Button, Yuvarlak Frame, Color Button]

Çok teşekkür ederim. Elinize kolunuza sağlık...

[Yuvarlak Button, Yuvarlak Frame, Color Button]

Merhaba;

 

Herhangi bir unibuton'u yuvarlak yapma ihtimalimiz var mıdır?

Url frame'i nasıl yuvarlak yapabiliriz?

Color Button var nasıl kullanılıyor? Özellikler içinde arkaplan rengini değiştirme yok...

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

 if fmCard.ShowModal = mrOK then begin uygunsuz tip hatası dışındaki problemleri hallettim. Anladığım kadarıyla bütün formlar açılışta create edildiği için bir daha create ettirmiyor, showmodal'daki problemin nedeni acayip bitbtn koymuştum nasıl olmuşsa formla aynı ismi almış o yüzden hata alıyormuşum.

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Bu arada  if fmCard.ShowModal = mrOK then begin satırları içinde uygunsuz tip hatası veriyor :-(

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Dosya hazır sıkıştırılmış şekilde ama burada dosya ekle bölümü yok nasıl göndereceğim?

Göndermem gerek başka problemlerimde var çıldırmak üzereyim.

Login ekranını buradaki login örneğine göre hallettim bu defa da aşağıdaki gibi problemlerim var.

Aynı bileşenden var diyerek create etmiyor, showmodal diyorum yine aynı hata, show yine aynı hata anlamadım gitti. 
 
unit Main;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics,LoginFUnit,

  Controls, Forms, Dialogs, uniGUIForm, uniGUITypes, StdCtrls, UniListBox,

  UniMemo, UniLabel, ExtCtrls, UniPanel, ComCtrls, UniPageControl,

  UniButton, Buttons, UniSpeedButton, uniGUIClasses, uniMultiItem, UniBitBtn,

  uniGUIBaseClasses, uniSplitter, Vcl.Imaging.jpeg, uniImage, Vcl.Menus,

  uniMainMenu;

 

type

  TSortOrder = (soASC, soDESC);

 

type

  TMainForm = class(TUniForm)

    UniMainMenu1: TUniMainMenu;

    HaklarveYetkiler1: TUniMenuItem;

    CariKartlar1: TUniMenuItem;

    UniImage1: TUniImage;

    CariKartlar2: TUniMenuItem;

    UniImage2: TUniImage;

    procedure UniListBox1Click(Sender: TObject);

    procedure UniButton1Click(Sender: TObject);

    procedure UniSpeedButton1Click(Sender: TObject);

    procedure UniFormActivate(Sender: TObject);

    procedure CariKartlar2Click(Sender: TObject);

  private

    { Private declarations }

    procedure _cbProc1(LoginSuccessful: Boolean);

  public

    SortOrder   : TSortOrder;

    procedure NewCariCard;

  end;

 

function MainForm: TMainForm;

function NumaraAl(TabloAdi : String) : Longint;

function TurkishUpCase(uk : Char) : Char;

 

 

var

  UserName   : String;

  YetkiAlani : String;

 

  WPC        : integer;

 

  Accepted   : Boolean;

  AcceptStr  : String;

  Acceptint  : integer;

  Acceptdate : Tdate;

 

  SelectedKimlik : Longint;

 

const

  ReadOnly   = 1;

  ReadWrite  = 2;

  AddNew     = 3;

  ForSelect  = 4;

  ForOpen    = 5;

 

implementation

 

{$R *.dfm}

 

uses

  UniGUIVars, MainModule, carilistesi, Unit1, DM, cari;

 

function MainForm: TMainForm;

begin

  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));

end;

 

function TurkishUpCase(uk : Char) : Char;

begin

  case uk of

    'ı' : Result := 'I';

    'i' : Result := 'İ';

    'ş' : Result := 'Ş';

    'ç' : Result := 'Ç';

    'ö' : Result := 'Ö';

    'ü' : Result := 'Ü';

    'ğ' : Result := 'Ğ';

  else

    Result := UpCase(uk);

  end;

end;

 

Function GetName:string;

var

  i : LongWord;

begin

  SetLength(Result, MAX_COMPUTERNAME_LENGTH);

  if GetComputerName(@Result[1], i) then

     SetLength(Result, i);

  end;

 

function TurkishUpStr(St : String) : String;

var

  i : integer;

begin

  for i := 1 to Length(St) do

    St := TurkishUpCase(St);

  Result := St;

end;

 

function NumaraAl(TabloAdi : String) : Longint;

begin

  with mainform do begin

    if dmo.taNumara.Locate('Belirtec', TabloAdi, []) then begin

      dmo.taNumara.Edit;

      dmo.taNumara.FieldByName('SonNo').asInteger := dmo.taNumara.FieldByName('SonNo').asInteger + 1;

      Result := dmo.taNumara.FieldByName('SonNo').asInteger;

      dmo.taNumara.Post;

    end else begin

      dmo.taNumara.Insert;

      dmo.taNumara.FieldByName('SonNo').asInteger := 1;

      Result := 1;

      dmo.taNumara.Post;

    end;

  end;

end;

 

 

procedure TMainForm.UniFormActivate(Sender: TObject);

begin

   if WebMode then

   begin

          With Login_F do

          begin

                InitCallback(False,_cbProc1);

                Show;

          end;

   end

   Else

//      Mainpanel.Visible := true;

end;

 

procedure  TMainForm._cbProc1(LoginSuccessful: Boolean);

begin

      if LoginSuccessful = True then

//          Mainpanel.Visible := true

end;

 

procedure TMainForm.CariKartlar2Click(Sender: TObject);

begin

//  if Pos('Cari', YetkiAlani) > 0 then begin

    carilistesi.fmCariListesi.Create(uniApplication);

    carilistesi.fmcarilistesi.ShowModal;

    fmCariListesi.Free;

//  end else application.messagebox('İşlem Yapılamaz!', 'Bu işlemi yapmaya yetkiniz yok.', mb_ok);

 

end;

 

procedure TMainForm.NewCariCard;

var fmCard : TfmCari;

begin

//  if Pos('Yeni', YetkiAlani) > 0 then begin

  fmCard := TfmCari.Create(Application);

  fmCard.Mode := AddNew;

//  if fmCard.ShowModal = mrOK then begin

//    DMO.quCari.Close;

//    DMO.quCari.Open;

//    DMO.quCari.Refresh;

//  end;

  fmCard.Free;

//  end else ErrorBox('İşlem Yapılamaz!', 'Bu işlemi gerçekleştirmek için gerekli erişim hakkınız tanımlı değil...', '');

end;

 

 

procedure TMainForm.UniButton1Click(Sender: TObject);

begin

  UniForm1.ShowModal;

end;

 

 

procedure TMainForm.UniListBox1Click(Sender: TObject);

begin

//  UniMemo1.Lines.Add(UniListBox1.Items[uniListBox1.ItemIndex]);

end;

 

procedure TMainForm.UniSpeedButton1Click(Sender: TObject);

begin

  Close;

end;

 

initialization

  RegisterMainFormClass(TMainForm);

 

end.

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Cevaplarınız için teşekkür ederim. Bir mail adresi verirseniz örnek proje göndereyim.

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Aşağıdaki gibi bir yapı için c is not a function hatası veriyor nasıl düzeltebilirim?

 

procedure Tfmgiris.UniFormShow(Sender: TObject);

begin

  while wpc < 3 do begin

    if not GetPass then begin

      fmSifre.Free;

      inc(wpc);

      if wpc = 3 then uniApplication.Terminate;

    end else begin

          UserName := DMO.quPer.FieldByName('AdSoyad').asString;

          YetkiAlani := DMO.quPer.FieldByName('YetkiAlani').asString;

          SB.Panels[0].Text := 'Kullanıcı : ' + UserName;

          fmgiris.Caption := 'Hoşgeldin ' + Username;

          fmSifre.Free;

          wpc := 4;

          Accepted := False;

        end;

    end;

end;

 

function TfmGiris.GetPass : Boolean;

begin

  fmSifre.ShowModal;

  Result := False;

  if fmSifre.ModalResult = mrOK then begin

    if DMO.quPer.Locate('AdSoyad', fmSifre.cbPer.Text, []) then

      Result := UpperCase(sifreekrani.fmSifre.uniEdit2.Text) = UpperCase(DMO.quPer.FieldByName('Sifre').asString);

  end else wpc := 2;

end;

 

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Frame ve Form arasında ne fark var?

[Bir Formdan Başka Bir Forma Veriyi Normal Delphi Formalarındaki Gibi Yapamıyor Muyuz?]

Merhaba;

Ben de aynı sıkıntıyı yaşıyorum. Daha önce uses bölümüne diğer formların isimlerini girdiğimizde herhangi bir procedure'de ya da fonksiyonda

formx: Tformx.create(application);

gibi bir komut kullanabiliyorduk unigui ile kullanamıyoruz. var formx: Tuniform şeklinde tanımlama yaptıktan sonra kullanılıyor o da kısıtlamalara ve sıkıntılara sebep oluyor. Ne yapmam gerekiyor?