Delphi Forum

Bir exe dosyayı parametreler kullanarak çalışacak şekilde nasıl hazırlayabiliriz.

Sinyal seviyeleri farklı olduğu için dönüştürücü kullanman şart.... gerisi RS232 ile aynı zaten...

Filelistboxta dosyanın index numarası dosyanın yanına yazdırılabiliyormu... yada nasıl yazdırabilirim...

Değer göndermeden iki tane değer döndüren fonksiyon nasıl tanımlanıyor. Birde bu fonksiyon DLL bir dosyadan çağrılıyor.

Visual C++ örneklerini vermişler ben delphiden bu DLL e bağlandım pek çok fonksiyonu çalıştırdım fakat bazı fonksiyonlarda giriş noktası bulunamadı diye bir hata alıyorum.
Dword ...

Sadettin Hocam öncelikle teşekkür ederim, Mikroişlemci ve denetleyici tabanlı programlarda özellikle asm de çok iyiyimdir. Ancak delphi bir deniz ve ben sayenizde delphi üzerinde bişeyleri başarabiliyorum.

Tekrar çok teşekkürler

procedure TForm1.BitBtn35MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
buton1_d:=10;
MANUAL:=YSAG+XSOL;
MANUAL_AXIS();
end;

bu çagırmak istediğim prosedür


procedure TForm12.BitBtn35MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState ...

clik olayı çalışıyor fakat OnMouseDown olayında actual parametre hatası veriyor onu nasıl düzeltebilirim.

Cevabınız için çok teşekkür ederim.

Form1 üzerinde bi buton var ve bunun onclik olayını form2 üzerindeki başka bir butondan çağırmak istiyorum bu mümkünmü mümkünse nasıl yapabilirim. Kolay Gelsin

Teşekkürler...

AssignFile(Dosya, DosyaAdi);
{$I-}
Reset(Dosya);
if IOResult = 0 then
i:=0;
while not EOF(Dosya) do
begin
ReadLn(Dosya, Satir);
Satir:=Satir+' ';
i:=i+1;
k:=i;
setlength(SATIRIM,i);
SATIRIM[i-1]:=satir;
end;


burada setlength (dizi boyutunu sabit olarak yukarıda tanımlarsak ...

AssignFile(Dosya, DosyaAdi);
{$I-}
Reset(Dosya);
if IOResult = 0 then
i:=0;
while not EOF(Dosya) do
begin
ReadLn(Dosya, Satir);
Satir:=Satir+' ';
i:=i+1;
k:=i;
setlength(SATIRIM,i);
SATIRIM[i-1]:=satir;
end;


kodu bu şekilde birde daha karmaşık bi algoritmada


PROCEDURE CAPRAZ_B();
var ...

SETLENGTH komutunu bir döngüde kullandığım zaman döngü bu komut olmadan bir saniye sürüyorsa kullandıktan sonra 10 saniye sürüyor.
sistemi acaba neden bu kadar yavaşlatıyor. Bunu çözmenin hızlandırmanın bir yolu varmı...? Dizi boyutunu daha önceden hesaplayamıyorum. hesaplayabilsem bu sorun ortadan ...

CopyRect ile resim üzerinde istediğim bir alanı seçip büyütebiliyorum burada bi sorun yok ancak iş resim üzerinde bir alanı mouse ile seçmeye gelince iş biraz karıştı... ilk sorun normal programlarda olduğu gii mouse ile beraber hareket eden dikdörtgen ve bunun kenar çizgileri oldu bu kenar ...

Bir dll fonksiyonunu kendi prosedürümden çağırdığım zaman pointer tanımlanmış bir diziye bu tanımlanmamış değişkendir diye hata veriyor.

Ancak aynı fonksiyonu bir buton veya bir timer vasıtasıyla rahatlıkla çağırıp kullanabiliyorum. bu problemi nasıl aşabilirim.



procedure usb_aygıta_yaz ...

Ne tür bilgi almak istiyorsun. ???
Bu tip üniteler genelde dışarıya bilgi vermez. (Arıza, Run, Stop Hariç)
Dışarıdan bilgi alırlar...