Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 3.139
» Son Üye: netzone
» Toplam Konular: 5.482
» Toplam Yorumlar: 43.775

Detaylı İstatistikler

Son Aktiviteler
CMD ile Linux'a Komut Gön...
Forum: Genel Programlama
Son Yorum:

eroniko
10 saat önce
» Yorumlar: 3
» Okunma: 84
Pazar yeri Entegrasyonu N...
Forum: Genel Programlama
Son Yorum:

glagher
Dün, Saat: 12:32
» Yorumlar: 7
» Okunma: 568
Uygulama ikonu neden deği...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

frmman
26-07-2021, Saat: 23:29
» Yorumlar: 3
» Okunma: 112
Sayısal Çiftlik Oyunum
Forum: Proje Fikirleri ve Proje Tanıtım
Son Yorum:

engerex
26-07-2021, Saat: 22:05
» Yorumlar: 43
» Okunma: 18.332
WSDL dosyasını import ede...
Forum: Genel Programlama
Son Yorum:

Abdullah ILGAZ
26-07-2021, Saat: 16:44
» Yorumlar: 2
» Okunma: 103
Code Summer Camp 2021
Forum: e-Kaynak
Son Yorum:

Abdullah ILGAZ
26-07-2021, Saat: 16:32
» Yorumlar: 0
» Okunma: 58
MacOs Monterey için Hangi...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Abdullah ILGAZ
26-07-2021, Saat: 16:23
» Yorumlar: 7
» Okunma: 348
Google Play
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

ikurt07
26-07-2021, Saat: 11:41
» Yorumlar: 5
» Okunma: 223
NOX Emulator
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

gbg
25-07-2021, Saat: 15:32
» Yorumlar: 16
» Okunma: 9.178
Ek iş arıyorum
Forum: İnsan Kaynakları ve Pazarlama
Son Yorum:

delphisever
25-07-2021, Saat: 01:30
» Yorumlar: 0
» Okunma: 125

 
  CMD ile Linux'a Komut Gönderip Cevap Alma Hk.
Yazar: pro_imaj - Dün, Saat: 16:05 - Forum: Genel Programlama - Yorumlar (3)

Merhaba,

Aşağıda paylaştığım kodları buradaki konuda geçen şekilde linux'a ssh gönderip cevap alma işlemi yapıyorum, fakat birçok işlemde cevap dönmüyor, linux tarafını tecrübe eden var mı acaba.

Aynı işlemi aynı windowsta CMD ile yaptığımda sonuç 20-30 sn geliyor, fakat Delphi tarafında aşağıdaki şekilde sonuç dönmüyor. 
*Gönderdiğim CMD komutu 3-4 satırdan oluşuyor.

Aşağıdaki kod ile tek satırda tüm kodları göndermem gerekiyor, her komutu tek tek nasıl gönderebilirim, konuyla ilgili yardımlarınızı rica ederim.

function GetCommand(CommandLine: string): string;
var
 SA: TSecurityAttributes;
 SI: TStartupInfo;
 PI: TProcessInformation;
 StdOutPipeRead, StdOutPipeWrite: THandle;
 WasOK: Boolean;
 Buffer: array[0..255] of AnsiChar;
 BytesRead: Cardinal;
 WorkDir: string;
 Handle: Boolean;
begin
 Result := '';
 with SA do begin
   nLength := SizeOf(SA);
   bInheritHandle := True;
   lpSecurityDescriptor := nil;
 end;
 CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
 try
   with SI do
   begin
     FillChar(SI, SizeOf(SI), 0);
     cb := SizeOf(SI);
     dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
     wShowWindow := SW_HIDE;
     hStdInput := GetStdHandle(STD_INPUT_HANDLE);
     hStdOutput := StdOutPipeWrite;
     hStdError := StdOutPipeWrite;
   end;
   WorkDir := GetCurrentDir;
   Handle := CreateProcess(nil, PChar('cmd.exe /C ' + CommandLine),
                           nil, nil, True, 0, nil,
                           PChar(WorkDir), SI, PI);
   CloseHandle(StdOutPipeWrite);
   if Handle then
     try
       repeat
         WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
         if BytesRead > 0 then
         begin
           Buffer[BytesRead] := #0;
           Result := Result + Buffer;
         end;
       until not WasOK or (BytesRead = 0);
       WaitForSingleObject(PI.hProcess, INFINITE);
     finally
       CloseHandle(PI.hThread);
       CloseHandle(PI.hProcess);
     end;
 finally
   CloseHandle(StdOutPipeRead);
 end;
end;

Bu konuyu yazdır

  Code Summer Camp 2021
Yazar: Abdullah ILGAZ - 26-07-2021, Saat: 16:32 - Forum: e-Kaynak - Yorum Yok

17_Banner-_Learn-to-Code-Summer-Camp_120...C628&ssl=1

Her yıl Embarcadero sponsorluğunda düzenlenen yaz kodlama kampı bugün başlıyor!

Bu yıl PyScripter ile birlikte Delphi/Object Pascal, C++, SQL ve web teknolojilerinin yanı sıra Python'da ajandada yer alıyor.

Programlama dillerini öğrenmek dışında; mobil geliştirme, Android, iOS, Linux server, Windows Desktop, oyun geliştirme, web geliştirme, veritabanları ve daha fazlası!

Code Summer Camp 2021 için bu linkten kaydolabilirsiniz. Dilerseniz deneyimlerinizi paylaşmak üzere gönüllü katılımcı olarak yerinizi alabilirsiniz.

Bu konuyu yazdır

  Uygulama ikonu neden değişmiyor?
Yazar: ferhatganem - 26-07-2021, Saat: 13:06 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (3)

Merhaba arkadaşlar;
Geliştirdiğim uygulamanın Project Options kutusundan ikonunu değiştiriyorum; derledikten sonra, exe dosyanın özelliklerine baktığımda seçtiğim ikon atanmış görünmesine rağmen, dosya listesinde delphi simgesi (D harfi) görünmeye devam ediyor. 
Görev çubuğunda kısayolunu oluşturduğumda atadığım ikon görünüyor, neden dosya ismi önünde delphi ikonu kalmaya devam ediyor acaba?
İlginize teşekkür ederim.

Bu konuyu yazdır

  WSDL dosyasını import ederek web servise veri gönderme.
Yazar: KUNTAY - 26-07-2021, Saat: 01:25 - Forum: Genel Programlama - Yorumlar (2)

Kod:
StokTanim_VM         = class;                 { "http://tempuri.org/"[GblCplx] }

 ArrayOfStokTanim_VM = array of StokTanim_VM;   { "http://tempuri.org/"[GblCplx] }

Kod:
StokTanim_VM = class(TRemotable)
 private
   FSTOK_KODU: string;
   FSTOK_KODU_Specified: boolean;
   FSTOK_ISIM: string;
   FSTOK_ISIM_Specified: boolean;
   FBIRIM_1: string;
   FBIRIM_1_Specified: boolean;
   FBIRIM_2: string;
   FBIRIM_2_Specified: boolean;
   FBIRIM_3: string;
   FBIRIM_3_Specified: boolean;
   FKDV_ORAN: string;
   FPAY_1: string;
   FPAY_2: string;
   FPAYDA_1: string;
   FPAYDA_2: string;
   procedure SetSTOK_KODU(Index: Integer; const Astring: string);
   function  STOK_KODU_Specified(Index: Integer): boolean;
   procedure SetSTOK_ISIM(Index: Integer; const Astring: string);
   function  STOK_ISIM_Specified(Index: Integer): boolean;
   procedure SetBIRIM_1(Index: Integer; const Astring: string);
   function  BIRIM_1_Specified(Index: Integer): boolean;
   procedure SetBIRIM_2(Index: Integer; const Astring: string);
   function  BIRIM_2_Specified(Index: Integer): boolean;
   procedure SetBIRIM_3(Index: Integer; const Astring: string);
   function  BIRIM_3_Specified(Index: Integer): boolean;
 public
   destructor Destroy; override;
 published
   property STOK_KODU: string      Index (IS_OPTN) read FSTOK_KODU write SetSTOK_KODU stored STOK_KODU_Specified;
   property STOK_ISIM: string      Index (IS_OPTN) read FSTOK_ISIM write SetSTOK_ISIM stored STOK_ISIM_Specified;
   property BIRIM_1:   string      Index (IS_OPTN) read FBIRIM_1 write SetBIRIM_1 stored BIRIM_1_Specified;
   property BIRIM_2:   string      Index (IS_OPTN) read FBIRIM_2 write SetBIRIM_2 stored BIRIM_2_Specified;
   property BIRIM_3:   string      Index (IS_OPTN) read FBIRIM_3 write SetBIRIM_3 stored BIRIM_3_Specified;
   property KDV_ORAN:  string  read FKDV_ORAN write FKDV_ORAN;
   property PAY_1:     string  read FPAY_1 write FPAY_1;
   property PAY_2:     string  read FPAY_2 write FPAY_2;
   property PAYDA_1:   string  read FPAYDA_1 write FPAYDA_1;
   property PAYDA_2:   string  read FPAYDA_2 write FPAYDA_2;
 end;


Yukarıda WDSL ile elde ettiğim unit var

Kod:
function  Login(const ac_user: string; const ac_pass: string): string; stdcall;
Bu fonksiyonla login olup loginID alabiliyorum. 

Yapamadığım 
Stok bilgilerini göndermek. 

onun fonksiyonu 
Kod:
function  StokDataTransfer(const ac_user: string; const loginId: string; const stok_list: ArrayOfStokTanim_VM): string; stdcall;

stok_list oluşturamıyorum aşağıda stok_list için bir deneme yaptım ama hata veriyor bu konuda yardımcı olabilirseniz sevinirim.  



Kod:
var
stok_list : ArrayOfStokTanim_VM;
Begin

stok_list[0].STOK_ISIM:='ELMA ARMUT';
stok_list[0].BIRIM_1:='ADET';
................
.................

veri := GetSDR_ServicesSoap.StokDataTransfer(userx, loginID, stok_list );
end;

Bu konuyu yazdır

  Ek iş arıyorum
Yazar: delphisever - 25-07-2021, Saat: 01:30 - Forum: İnsan Kaynakları ve Pazarlama - Yorum Yok

Merhaba,
Delphi yazılım uzmanıyım aktif olarak çalışıyorum. Maddi olarak ek gelire ihtiyacım olduğu için uzaktan akşamları ve hafta sonları çalışacağım ek iş arıyorum. Proje bazlı veya surekli olabilir farketmez.

İlgilenenler : severdelphi@gmail.com

Uzmanlık alanlarım
VCL, FMX Android
SQL Server, TSQL, MySQL, Firebird
Devexpress, JEDI,TMS vb. hemen hemen bir çok bileşeni kullandım.
Algoritmik analizim ve algoritma bilgim iyidir.
Bileşen yazma tecrübem mevcuttur.

Bu konuyu yazdır

Photo Sqlite Database Veri Sorunu
Yazar: apachi2006 - 24-07-2021, Saat: 23:39 - Forum: Diğer Veri Tabanları - Yorumlar (2)

Merhaba arkadaşlar lokalde bağlantı parametrelerini saklamak için sqlite database tablosu ayarladım. Bağlantı yaptığımda aşağıdaki gibi veri alanlarında girdiğim değerler gelmiyor.
Bilgisi olan varmı?
sqlite.png



Ek Dosyalar
.png   sqlite.png (Dosya Boyutu: 14,95 KB / İndirme Sayısı: 38)
Bu konuyu yazdır

  Google Play
Yazar: ikurt07 - 21-07-2021, Saat: 23:20 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (5)

herkese iyi çalışmalar Smile


arkadaşlar ilginç bir sorunum var..

Uygulamayı kendi telefonumda run ettiğimde normal çalışıyor.. aynı uygulamayı google play e yüklediğimde uygulama spalish ekranında kalıyor.  ilginç bir şekilde ana ekrana gelmiyor.. sanırım uygulama sürekli açılıp kapanıyor..

Bu konuyu yazdır

  TCPClient Connection Refused Sorunu
Yazar: tmrksmt - 21-07-2021, Saat: 16:49 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (4)

Merhabalar, herkese iyi bayramlar dilerim...

TCPClient bileşenini kullanarak ağdaki modeme bağlı termal yazıcıya çıktı gönderiyorum. Uygulama ilk başta çalışıyor. Ancak belli bir zaman geçtikten sonra yazıcıya göndermek istediğimde ya "Connection refused" ya da "Connection Time Out" gibi hatalar alıyorum. Ağa bağlı PC de bağlantıyı tekrar kesip deneyince oluyor ancak daha sonrasında yine aynı durum. 

Netten epey bir araştırma yaptım ancak kesin bir çözüm bulamadım. Kullandığım kod bloğu aşağıdadır;

IdTCPClient1.Host:='192.168.1.100';
IdTCPClient1.Port:=9100;
IdTCPClient1.ConnectTimeout := 20000;
if not idTCPClient1.Connected then IdTCPClient1.Connect;
IdTCPClient1.IOHandler.Write('Merhaba Dünya', IndyTextEncoding(TEncoding.GetEncoding(857)));
IdTCPClient1.IOHandler.InputBuffer.Clear;
IdTCPClient1.Disconnect;


Sizce sorunun kaynağı nedir ve ne yapmalıyım?

Bu konuyu yazdır

Question 10.4.2 Sürümünde Component Sorunu
Yazar: aegean - 21-07-2021, Saat: 12:46 - Forum: Delphi Sürümleri - Yorumlar (1)

Merhaba,
Ben yakın tarihde Delphi Community Edition (10.3.3) yükledim ve Comport kontrolleri için de daha önce de kullandığım TurboPower Async Professional 5 i birkac duzeltme ile install ettim ve bazı baslamıs oldugum programlar da bu component ile hazırladıgım exe leri de test olarak sorunsuz calıstırdım. Fakat Siz ve Embarcaderonun sayesinde Community Edition 10.4.2 e yükseltme etme imkanı olunca yükseltmeyi yaptım. componenti kurmak istediğim de runtime ve desing time  sorunsuz derlenmesine ragmen install etmeye kalkınca Bsd.exe Access Volation hatası veriyor. aynı dosyalar 10.3.3 de sorunsuz kuruluyor ve 10.4.2 ye diğer componentler de (Cport gibi )sorunsuz kuruluyor. ben hatanın nerden kaynaklandıgını bulamadım tabii ki component hazırlama veya duzeltmeye yetecek kadar tecrübem yok.
Ek'e 10.3.3 te çalışanı yükledim eğer tecrubeli arkadaslardan ilgilenmek ve değerli zamanlarını ayırıp sorun düzeltmek isteyen olursa bu component yeni versiyon delphi de diğer arkadasların da kullanabileceği bir yardımcı olur. İyi günler ve iyi bayramlar dilerim.



Ek Dosyalar
.zip   tpapro.zip (Dosya Boyutu: 1,96 MB / İndirme Sayısı: 2)
Bu konuyu yazdır

  Delphi Community 10.4.2 cikti
Yazar: Ugur - 20-07-2021, Saat: 14:04 - Forum: Delphi Sürümleri - Yorumlar (7)

2021-07-20-13-31-04.png

Arkadaslar bugün Delphi 10.4.2 Community sürümünü piyasaya sürdüler, hepimize hayirli olsun.
Ilk dikkatimi ceken eski sürümlerde oldugu gibi su kadar gün kaldi gibi calistirirken bir bilgi gelmiyor

2021-07-20-15-27-51-Embarcadero-Produktr...ierung.png


Bayraminiz mübarek olsun  Wink

Bu konuyu yazdır