Delphi Forum

function Occurrences(const Substring, Text: String): Integer;
var
Offset: Integer;
begin
Result := 0;
Offset := PosEx(Substring, Text, 1);
while Offset <> 0 do
begin
Inc(Result);
Offset := PosEx(Substring, Text, Offset + Length(Substring));
end;
end;

procedure TForm8.Button1Click(Sender ...

Şöyle birşey yapsan olmaz mı

4- A
11- Soru saçma. focus olan herhangi bir butona enter yaparsan tepki verir. (kind ne seçili olursa olsun) ama sen E seçeneği diyebilirsin.
14-E

Merhaba,

Aşağıdaki gibi bir örnek ile konuyu anlayabileceğini düşünüyorum. Umarım faydalı olur.
VALUES altında yazan alanların başına : işareti koymak o alanın dışarıdan parametre aldığını gösterir.


var
Q: TUniQuery;
begin
with Q do
begin
SQL.Clear;
SQL.Add('INSERT INTO TESTDB.dbo.DLT_MAIL ...

SELECT
MAX(TH.Barkod) AS [Barkod],
MAX(H.HastaAdiSoyadi) AS [HastaAdiSoyadi],
MAX(H.Uyrugu) AS [Uyrugu],
MAX(TH.Bolumu) AS [Bolumu],
MAX(TGD.GrupKimlik) AS [GrupKimlik],
MAX(TG.Bolumu) AS [Bolumu],
MAX(TG.GrupAdi) AS [GrupAdi]
FROM
TTetkiklerHareket AS [TH] WITH(NOLOCK) LEFT OUTER JOIN ...

Fonksiyonu aşağıdaki gibi kullanıyorum. Sonuç istediğim gibi ama her satırda Status ve StatusMsg dönüyor haliyle. Status ve StatusMsg aslında benim için genel bir sonuç döndürmeli. Yani exception kontrolü gibi düşünebiliriz. Bu arada 2. soruma çözümüde bulmuş oldum.


var
Service: IWS_DN;
License ...

Hocam tekrar merhaba,
Kodlama devam ettikçe birkaç soru daha çıktı karşıma. Konu biraz uzadı sanırım kusuruma bakmayın.
1- Status ve Statusmsg genel bir sonuç döndürdüğü için Lisanslar[n].Status değilde Lisanslar.Status şeklinde publish edebiliyor muyuz?
2- Client tarafında GetLicenseInfoA ...

Çok teşekkür ederim yardımınız için.

Hocam AccountName alanını ilk fonksiyonum için gönderip tek bir hesap için lisans bilgisi alıyorum.
2. fonksiyonumda ürüne ait tüm lisans bilgilerini çekmek istediğim için accountname alanını göndermemem gerekiyor zaten.
sorunum şu. INTF.pas için yazdığım kodlar sizce bu yapmak istediğim iş için ...

ismailkocacan yazdı: 19 Kas 2020 02:16 WebService TRemotable verilerini VirtualTable ye aktarmak nasıl yapılır

Merhaba,

Ben web servis tarafındaki sorunumdan bahsettim aslında. Verdiğiniz url de varolan web servisten veri çekmekte sorun yaşamış arkadaş.
Benim sıkıntım bu veriyi web servis ile yayınlayabilmek.

Merhaba Arkadaşlar,

Bir lisans servisi hazırlıyorum.
GetLicenseInfo fonksiyonuma AccountName değeri gönderdiğim için tek satır sonuç alıyorum bu kısım istediğim gibi.
GetLicenseInfoA fonksiyonuma ise AccountName değeri göndermediğim için ürüne ait tüm lisans bilgilerini satır satır okuyup gride ...

Arkadaşlar Merhaba,

ISAPI ile uygulama geliştirmek istiyorum.
Takıldığım nokta ise uygulamayı bir exe gibi her an test edebilmek istiyorum.
debug modda çalıştırıp tarayıcıda görüntüleyebilmek için aşağıdaki ayarları yapıyorum.

Run-> parameters
Host = C:\Windows\System32\inetsrv\w3wp.exe
Parameters ...

Merhaba,
Problemin doğru anlaşılmadığını düşünüyorum.
Designtime da hazırladığım 10 tane formum var.
Uygulamanın ilk açılışında bir pagecontrol yok.
Bir formu çağırdığımda Önce pagecontrol oluşacak daha sonra tab oluşacak ve ilgili form bu tabda görüntülenecek.
Diğer formu çağırdığımda bir tab daha ...

Merhaba Arkadaşlar,

Çalışma zamanında PageControl Tabsheet ve form oluşturuyorum.
oluşturulan sheeti kapatıp aynı formu yeniden oluşturmak istediğimde Invalid Pointer hatası alıyorum.
Sorunu aşamadım.
Aynı sayfayı oluşturuken aşağıdaki satırda hataya düşüyor.

TForm(Reference).Parent := tsMain ...

Merhaba,
Öncelikle ilginiz için teşekkür ederim.
Linkteki örnekleri inceledim. HTMLViewer demosu ile test yaptım.
WebBrowser ile açtığım html dosyasında çok düzgün bir görüntü alırken bu component ile aldığım görüntüde base64 formatındaki resimler görüntülenemiyor ve metinler viewerın her bir yerine ...