kod çakışması bu kod ne iş yapıyor

[forumsad]

aşagıdaki kod hakkında biraz bilği verebilirmisiniz ne iş yapıyor.
bu kod aynı anda çalışan iki programda bulunuyor aynı anda yazma işlemi yapmaya çalıştığında biri yazma yapamıyor data kayboluyor
bunu nasıl engelleriz
saygılarımla..

Kod: Tümünü seç

//***********************************************************************
procedure OrtakDegerYaz(Deger: string; SatrNo: integer);
var
  qkarsay: integer;
  AdresBas: integer;
  tekkar: PAnsiChar;
  karval: byte;
  DegPoint: ^byte;
  degerstr: string;
begin
try
//if _amir=1 then ShowMessage('OrtakDegerYaz');
  AdresBas := SatrNo * 15;
  degerstr := Deger + Copy('               ', 1, 15 - length(Deger));
  for qkarsay := 0 to 14 do
  begin
    lpszTmp[AdresBas + qkarsay] := degerstr[qkarsay + 1];
    inc(DegPoint);
  end;

//____________________________________
except     //hata bölümü
     begin
     errorKaydet('uDM:01');
     end;
     end;
end;
//***********************************************************************

[brs]

Çakışma varsa buralarda değişiklik yapabilirsiniz.

Kod: Tümünü seç

qkarsay: integer;
  AdresBas: integer;
  tekkar: PAnsiChar;
  karval: byte;
  DegPoint: ^byte;
  degerstr: string;

Örnek:

Kod: Tümünü seç

 AdressssBas: integer;

Bu arada nerede takıldıysanız onu sorun...

[forumsad]

sanırım bu kod ile bilgisayar ram kısmında veya bir bellege data yazılıyor.
birinci program bellege data yazarken ikinci programda yazmaya çalışırsa ikinci programın datası kayboluyor..

aynı program olsa değişken isimleri değiştirilebilir
ama farklı programlar olduğu için değişkenlerin isimlerinin bir önemi olduğunu düşünmüyorum.

saygılarımla

[forumsad]

CreateFileMapping nedir diye araştırdığımda bir dosyanın bellege yüklenmesi olarak
görünüyor. yani bir dosyayı bellege kaydediyoruz adreslerini alıyoruz o adresdeki bilğiileri okuyoruz veya yazıyoruz
fiziksel txt veya ini dosyası kullanmadan dosyayı bellege yükleyerek daha hızlı okuma ve yazma yapıyoruz.
benim anladığım bu.
muhtemelen ben aynı adresleri aynı anda okumaya çalıştığım için okuma isteginin birisi işlemiyor

CreateFileMapping konusunda tecrubesi olan var mı acaba?tşk..