Anoybody knows how to SetEnvironmentVariable
lazarus / 32-Linux

----------------------------------------------------------------------
pascalbythree · 2023-08-09 15:55

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i var   i:
integer;begin  for i := 0 to getEnvironmentVariableCount() - 1 do 
begin     memo1.lines.Append(getEnvironmentString(i));  end;
This seems to work fine.

Anybody knows a way to set a SetEnvironmentVariable ? Without process
execution.

Again: i need to send strings from process to process. Anybody further
help ?

Or is there a component or example code for this ? Or is this not
possible with FPC on Linux ?

Greets, PascalByThree

----------------------------------------------------------------------
Curt Carpenter · 2023-08-09 17:30

https://www.freepascal.org/docs-html/rtl/baseunix/fppipe.html   ?

----------------------------------------------------------------------
pascalbythree · 2023-08-10 16:33

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  Program
WVW_PIPE_TEST_1; { Program to demonstrate the AssignPipe function.
} Uses BaseUnix,Unix, crt, sysutils       ; Var pipi,pipo : Text;    s
: String;    i:byte; begin  Writeln ('Assigning Pipes.');  If
assignpipe(pipi,pipo)<>0 then     Writeln('Error assigning pipes
!',fpgeterrno)  else   Writeln('assigning pipes OK !',fpgeterrno);   
i:=0;  repeat     inc(i);     if i = 100 then i:=0;       
 Writeln(pipi,'Hello World !'+IntToStr(i));     Writeln('Hello World
!'+IntToStr(i));     delay(155);  until keypressed;    close(pipo); 
close (pipi);  writeln ('Closed pipes.');end.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  Program
WVW_PIPE_TEST_2; { Program to demonstrate the AssignPipe function.
} Uses BaseUnix,Unix, crt; Var pipi,pipo : Text;    s : String; begin 
Writeln ('Assigning Pipes.');  If assignpipe(pipi,pipo)<>0 then   
Writeln('Error assigning pipes !',fpgeterrno);  Writeln ('Writing to
pipe, and flushing.');  Writeln (pipo,'This is a textstring'); 
close(pipo);  Writeln ('Reading from pipe.');  repeat  While not
eof(pipi) do    begin    Readln (pipi,s);    Writeln ('Read from pipe
: ',s);    end;  until keypressed;    close (pipi);  writeln ('Closed
pipes.');  writelnend.

Is something like this ever going to work out? I rather use something
with process names in it.

Keep working or keep searching? Greets, Wouter

----------------------------------------------------------------------
pascalbythree · 2023-08-10 16:58

or do i need to go for TSimpleIPCServer ?

----------------------------------------------------------------------
pascalbythree · 2023-08-10 17:16

Yay! It got to work with this topic:

https://forum.lazarus.freepascal.org/index.php?topic=41982.0


Still thank you very much for your precious time !