| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
|
|
| 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;
|
|
|
| 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.
|
|
|
|
| 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;
|
|
|
|
| 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.
|
|
|
|
| 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?
|
|
|
|
|
