jakarta2

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;

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...

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.

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

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)

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;

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

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.

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.

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?

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

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...

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.

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

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.