Hazırlamış olduğunuz programınızı ağ ortamında sorunsuz çalıştırın...
ben çok aramıştım. sağolsun Forumdan bir arkadaş yardımcı oldu. Ben de paylaşmak istedim.
1.Ana forma 1 adet Session nesnesi yerleştirin, Netfiledir:=L:\, Privatedir:=C:\myprog\data, name:=deneme, Active:=True yapın.
2.tüm table veya Query'lerin SessionName'lerini deneme olarak değiştirin.
3.BDE'de oluşturulan Aliasın PATH:=L:\ olarak değiştirin
4.Anaformun Oncreate olayına;
ExecuteShellCommand('net use L: \\Anamakina\data', True);
sleep(3000) // 3 saniye bekletiniz. aksi halde hata veriyo
hepsi bu kadar. Ben yaptım sorunsuz çalışıyor.Birde tüm table'ların Affterpost olayına;
DBISaveChanges((DataSet as TBDEDataSet).Handle ); yazmayı unutmayın.
umarım birilerinin işene yarar.
procedure ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
cmdbuffer: array [0..MAX_PATH] of Char;
begin
GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
StrCat(cmdbuffer, ' /C ');
StrPCopy(StrEnd(cmdbuffer), cmdline);
WinExec(cmdbuffer, flags[hidden]);
end;
ben çok aramıştım. sağolsun Forumdan bir arkadaş yardımcı oldu. Ben de paylaşmak istedim.
1.Ana forma 1 adet Session nesnesi yerleştirin, Netfiledir:=L:\, Privatedir:=C:\myprog\data, name:=deneme, Active:=True yapın.
2.tüm table veya Query'lerin SessionName'lerini deneme olarak değiştirin.
3.BDE'de oluşturulan Aliasın PATH:=L:\ olarak değiştirin
4.Anaformun Oncreate olayına;
ExecuteShellCommand('net use L: \\Anamakina\data', True);
sleep(3000) // 3 saniye bekletiniz. aksi halde hata veriyo
hepsi bu kadar. Ben yaptım sorunsuz çalışıyor.Birde tüm table'ların Affterpost olayına;
DBISaveChanges((DataSet as TBDEDataSet).Handle ); yazmayı unutmayın.
umarım birilerinin işene yarar.
procedure ExecuteShellCommand(cmdline: string; hidden: Boolean);
const
flags: array [Boolean] of Integer = (SW_SHOWNORMAL, SW_HIDE);
var
cmdbuffer: array [0..MAX_PATH] of Char;
begin
GetEnvironmentVariable('COMSPEC', cmdBUffer, SizeOf(cmdBuffer));
StrCat(cmdbuffer, ' /C ');
StrPCopy(StrEnd(cmdbuffer), cmdline);
WinExec(cmdbuffer, flags[hidden]);
end;
