Delphi 2010 komut satırı üzerinden cevap

[Dereck]

Merhaba arkadaşlar,

yazmakta olduğum bir programda programın msdos üzerinden parametre alarak çalışmasını sağlıyorum. İşin kısası formları gizledim ve programın bana vereceği yanıtları sadece dos üzerinden vermesini istiyorum. Ancak delphi 2010 da komut satırı üzerine text yazdıracak komutu bir türlü bulamadım. Pascaldaki 'writeln' tarzında bir komut arıyorum. Bu ve buna benzer komut satırı ünitleri varsa yardımcı olursanız çok sevinirim. Şimdiden teşekkürler

[freeman35]

.... Pascaldaki 'writeln' tarzında bir komut arıyorum.

delphi bir dil değildir. pascal dır.

[ertank]

Merhaba,

Aşağıdaki linkteki uygulamayı inceleyin. Dos komut satırına string olarak değerler göndermenizi ve sonuçlarını bir TMemo nesnesi içinde görebilmenizi sağlar.
viewtopic.php?f=2&t=36022&p=194487#p194487

[Dereck]

.... Pascaldaki 'writeln' tarzında bir komut arıyorum.

delphi bir dil değildir. pascal dır.

Bunun farkındayım. Bu yüzden daha iyi anlaşılabilmek için pascaldaki 'writeln' komutu ile kıyaslama yaptım. Teşekkür ederim

[Dereck]

Merhaba,

Aşağıdaki linkteki uygulamayı inceleyin. Dos komut satırına string olarak değerler göndermenizi ve sonuçlarını bir TMemo nesnesi içinde görebilmenizi sağlar.
viewtopic.php?f=2&t=36022&p=194487#p194487

Çok teşekkür ederim. Hemen deniyorum.

[Dereck]

Merhaba,

Aşağıdaki linkteki uygulamayı inceleyin. Dos komut satırına string olarak değerler göndermenizi ve sonuçlarını bir TMemo nesnesi içinde görebilmenizi sağlar.
viewtopic.php?f=2&t=36022&p=194487#p194487

teşekkür ederim ancak bu program komut satırını form üzerinden açıp işlem yapmaya yarıyor. Ya da komut satırına direk olarak parametre göndermeye yarıyor. Benim istediğim şey yazmış olduğum programda form ve görsel olarak herşey gizli durumda. Sadece dos üzerinden parametre vererek programı arkaplanda çalıştırıyorum ve parametre verdiğim zaman sonuçların bana yine aynı şekilde dos satırı üzerinden gösterilmesini istiyorum. Sizin paylaymış olduğunuz proje aslında bunun tam tersi diyebiliriz. Bu konuda nereden başlayacağımı gerçekten bilmiyorum. Bir çok yabancı sitede araştırma yaptım ancak örnek bulamadım.

[freeman35]

GUI kullanmıyorsan console application kullanabilirsin. freepascal yada lazarus u da kullanabilirsin. Hatta lazarus da GUI uygulamayı console dan çalıştırdıysan, kodunda yazacağın writeln ler ile console dan çıktı alabilirsin.

[Dereck]

GUI kullanmıyorsan console application kullanabilirsin. freepascal yada lazarus u da kullanabilirsin. Hatta lazarus da GUI uygulamayı console dan çalıştırdıysan, kodunda yazacağın writeln ler ile console dan çıktı alabilirsin.

Açıkcası bende bu alternatifi düşünüyorum ancak programda belirli zamanlarda komut vererek GUI aktif duruma getiriyorum. Programın parametreyle çalışması bir yana GUI ile ön plana çıkıp kullanıcıdan giriş ve şifre bilgisi isteyecek. Bu yüzden tamamen pascalada geçemiyorum. Ancak böyle bir özelliğin olmaması imkansız. Mutlaka bir yolu olmalı. En kötü ihtimalle aklıma gelen şey sizinde söylediğiniz gibi console applicationa geçeceğim. Yapmış olduğum GUI uygulamanın parametre modu ile console application yani iki farklı exe birbirine dışardan komut alışverişi yaparak çalışacak. Ancak bu şekilde hem GUI hem dos modunda kullanabilirim diye düşünüyorum fakat sırf dos üzerinden sonuç göstermek için oldukça zahmetli bir yol olacak

[Dereck]

Sorunumu çözdüm. Bu kadar kolay olacağını düşünmemiştim

Yeni bir console application projesi oluşturdum ve varolan diğer projemin unitlerini bu projeye dahil ettim. Sonrasında console applicationda aşağıda belirttiğim kodları ekledim. Program sorunsuz bir şekilde çalışıyor.

Kod: Tümünü seç

program KONSOL;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Forms,
  Windows,
  UnitTest in 'UnitTest.pas' {Form1},
  uGear in 'uGear.pas',
  dos_output in 'dos_output.pas';

  {$R *.res}

begin
if ParamStr(1) = '-konsol' then
    begin


          Writeln('gösterilecek mesaj yok!')
end;
if ParamStr(1) = '-guigecis' then
    begin
   Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;


end;

end.

"freeman35" teşekkür ederim fikir verdiğiniz için. Sayenizde çözdüm.